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Preface 


This  study  is  a  follow-on  to  the  study  completed  by 
Capt  DeGraff  in  December  1985.  Capt  DeGraff  constructed  a 
number  of  circuits  to  be  used  to  ultimately  "calculate  the 
error  detection  and  correction  performance  of  different 
concatenated  coding  schemes."  Capt  DeGraff  used  a  three 
wire  handshake  based  on  a  7474  D  flip  flop  as  the  serial  I/O 
port  for  his  circuits.  This  thesis  was  started  with  the 
intent  of  providing  a  simulated  communications  channel  which 
could  be  used  to  test  the  performance  of  Capt  DeGraff* s 
circuits.  However,  after  building  the  appropriate 
interface,  it  was  discovered  that  the  7474  D  flip  flop  would 
undergo  catastrophic  failure  within  1000  transmitted  bits. 
Therefore,  it  was  necessary  to  rebuild  the  BCH  encoder  and 
decoder  circuits  using  an  Dual  Asynchronous  Receiver 
Transmitter  (DART)  as  the  I/O  port,  allowing  the  rebuilt  BCH 
encoder  and  decoder  to  interface  to  any  computer  through  the 
computers  existing  serial  I/O  ports. 

I  have  found,  as  all  others  who  have  attempted  projects 
of  this  sort,  that  I  had  to  rely  on  the  help  and  support  of 
others.  Chief  among  these  is  my  Lord  and  Saviour  Jesus 
Christ  "For  the  Lord  gives  wisdom,  and  from  his  mouth  comes 
knowledge  and  understanding"  (Proverbs  2:6).  I  thank  my 
advisor.  Major  Glenn  Prescott,  whose  very  nature  instills 
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calm  reasoning  into  those  around  him.  Finalxy  a  special 
thanks  to  my  patient  and  understanding  "A 

wife  of  noble  characte  who  can  find?  She  is  worth  far  more 
than  rubies"  (Proverbs  31:10). 
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Abstract 


A  BCH  encoder  and  decoder  are  implemented  in  hardware 
with  special  emphasis  given  to  the  encoder  and  decoder 
interfaces.  The  pitfalls  of  using  a  7474  D  flip  flop  as  the 
basis  of  building  the  interface  is  discussed.  The 
advantages  of  using  a  UART  for  the  interface  are  outlined 
and  the  circuit  diagrams  to  implement  the  UART  interface  in 
hardware  are  provided. 

Finite  impulse  response  linear  filters  are  chosen  to 
implement  both  the  BCH  encoder  and  decoder.  A  basic 
theoretical  understanding  of  the  BCH  encoder  and  decoder 
function  is  given.  Design  decisions  made  for  the  hardware 
implementation  of  the  encoder  and  decoder  are  discussed,  and 
schematics  detailing  the  final  hardware  configurations  are 
provided.  Software  to  run  and  test  all  of  the  above  is 
documented  in  the  appendices. 
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HARDWARE  IMPLEMENTATION  OF  A 
BCH  ENCODER,  DECODER  AND  INTERFACE 


I.  Overview 


General  Issue: 

The  Foreign  Technology  Division  (FTD)  is  investigating 
the  performance  of  eiror  correcting  schemes  employed  in  a 
variety  of  communications  channels.  As  part  of  their 
investigation,  FTD  has  provided  AFIT  a  large  thesis  topic 
area  which  has  subsequently  been  broken  into  several  smaller 
thesis  efforts.  The  first  thesis  effort  required  the 
construction  of  a  BCH  encoder,  BCH  decoder,  interleaver,  and 
deinterleaver  in  hardware.  Captain  De  Graff  GE-85D  built 
the  encoders  and  decoders  during  the  summer  of  1985  and 
documented  his  designs  in  his  thesis  entitled  "Hardware 
Implementation  of  a  Concantenated  Encoder/Decoder" 

(DeGraff,  1985). 

The  second  thesis  effort  requires  the  construction  of 
an  asynchronous  communication  channel  to  provide  a  computer 
to  BCH  encoder/decoder  interface.  The  computer  will  provide 
a  bit  stream  to  the  BCH  encoder/decoder  as  well  as  the 
capability  for  simulating  communication  channels.  This 
document  addresses  the  second  thesis  effort. 

A  third  thesis  effort  will  provide  the  software  to 
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simulate  several  communications  channels.  This  software, 

when  running  on  the  computer  interfaced  to  the  BCH  j 

encoder/decoder  will  provide  a  test  bed  to  determine  the 

encoders  and  decoders  ability  to  correct  errors. 

The  final  tho«sis  effort  will  require  the  construction  j 

of  a  Reed-Solomon  encoder  decoder  scheme  in  software.  The 
Reed-Solomon  encoder/decoder  will  be  interfaced  to  the 

communications  channel  simulator.  The  final  thesis  effort  I 

ends  when  data  is  gathered  on  the  performance  of  both 
hardware  and  software  encoder  and  decoders  over  a  variety  of 
simulated  communication  channels. 

Background: 

Communication  systems  in  both  commercial  and  military 
procurements  are  moving  away  from  analog  technologies  in 
favor  of  digital  technologies.  Analog  transmissions  take  on 
a  infinite  variety  of  shapes  which  must  be  reconstructed  at 
the  receiver  for  reception  of  the  transmitted  information.  A 
small  disturbance  in  an  analog  system  (known  as  noise)  often 
affects  the  reception  of  the  received  signal,  causing 
distortion  (and  errors)  in  the  received  message. 

In  contrast  to  analog  systems,  digital  systems  are 
limited  to  a  finite  number  of  states.  When  digital 
transmissions  are  disturbed  by  noise,  the  digital  system 
must  chose  the  closest  finite  state  of  the  noise-disturbed 
signal  as  the  received  signal.  Choosing  the  closest  finite 
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state  often  results  in  the  regeneration  the  original 
transmitted  signal  giving  digital  systems  much  greater 
protection  against  distortion  and  interference  compared  to 
their  analog  cousins.  (Sklar,  1988:3). 

Digital  communication  systems  transmit  their 
information  in  the  form  of  a  bit  stream.  Bit  streams  can  be 
created  many  ways,  but  our  discussion  is  limited  to  a  binary 
bit  stream  (composed  of  two-level  pulses,  ones  and  zeros) 
and  transmitted  at  baseband  (unmodulated) .  The  bit  stream 
originates  at  an  information  source,  referred  to  as  the 
"source  bit  stream".  For  the  purposes  of  this  thesis,  the 
source  bit  stream  will  be  composed  of  the  ASCII  set  of 
characters.  Each  character  is  defined  by  8  bits  in  a 
predefined  state  known  as  the  ASCII  bit  pattern.  Some 
examples  of  characters  and  their  associated  ASCII  bit 
pattern  are  given  below: 


Character 

A 

a 

L 


+ 


ASCII  bit  pattern 
0100  0001 
0110  0001 
0100  1100 
0011  1011 
0010  1011 


Although  the  transmission  of  a  digital  bit  stream  can 
be  done  in  a  way  to  minimize  the  affects  of  noise,  errors  in 


the  transmitted  bit  stream  still  occur.  Fortunately, 
encoding  the  source  bit  stream  prior  to  transmitting  it  can 
provide  protection  against  transmitted  errors.  Additional 
bits  are  added  by  the  encoder  to  each  word  of  the  source  bit 
stream  prior  to  transmission.  After  reception,  the  bit 
stream  is  passed  to  the  decoder,  which  uses  the  additional 
bits  to  detect  and  correct  errors  if  they  have  occurred 
during  transmission. 

Since  this  thesis  centers  around  the  operation  of  a  BCH 
encoder/decoder,  it  is  worth  noting  that  the  BCH  encoder 
multiplies  a  generator  polynomial  to  a  character  (or  source 
word)  to  create  the  additional  bits  used  for  error  detection 
and  correction  (more  about  this  in  chapter  four) .  The 
character  plus  the  additional  bits  are  known  collectively  as 
the  code  word.  The  code  word,  when  received  by  the  decoder, 
allows  detection  and  correction  from  1  to  several  errors 
depending  on  the  nature  of  the  generator  polynomial  chosen. 

Problem  Statement; 

Determine  the  feasibility  of  interfacing  a  Z-100 
computer  to  an  existing  BCH  encoder/decoder  based  on  a  7474 
D  flip  flop  serial  I/O  port.  Make  all  modifications 
necessary  to  the  BCH  encoder/decoder  to  produce  a  working 
final  product. 


Scope: 


A  BCH  encoder/decoder  was  designed  and  constructed  by 


Capt  Peter  de  Graff  for  his  thesis  during  the  summer  of 
1985.  Capt  de  Graff's  design  utilized  a  7474  D  flip  flop  to 
provide  a  three  wire  handshake  interface.  The  interface 
includes  a  data  ready  line,  data  request  line,  and  the  data 
line  itself.  The  interface  is  controlled  by  a  Z-80  CPU 
driven  by  software  located  in  a  2719  E-Prom. 

This  thesis  will  determine  the  feasibility  of 
interfacing  directly  to  the  7474  D  flip  flop  of  the  BCH 
encoder  from  a  Z-100  computer.  The  interface  from  the  Z-100 
to  the  7474  D  flip  flop  will  be  controlled  from  the  bus 
structure  of  the  Z-100.  Design  heuristics  will  be  employed 
to  modify  both  the  Z-100  interface  and  the  BCH  interface  as 
necessary  to  provide  fully  functional  asynchronous 
communications  between  the  computer  and  the  BCH  encoder. 

Approach; 

A  hardwire  interface  from  the  Z-100  to  the  BCH  encoder 
will  be  constructed  on  a  wire-wrap  board.  The  initial 
design  of  the  hardwire  interface  will  use  a  7474  D  flip  flop 
to  provide  compatibility  with  the  BCH  encoder/decoder 
designs.  The  interface  will  be  mounted  on  an  extender  card 
which  in  turn  is  plugged  into  the  S-100  bus  of  the  Z-100 
computer.  Control  over  the  interface  will  be  accomplished 
by  the  Z-100  CPU  issuing  control  signals  over  the  S-100  bus 
at  a  specified  port  address.  Isolation  of  the  bus  from 
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spurious  signals  will  be  accomplished  by  appropriate  data 
and  address  buffers. 

During  construction  of  the  initial  interface,  test 
software  will  be  written  to  help  verify  the  design  process. 
Each  stage  of  the  design  will  be  independently  tested,  along 
with  the  final  completed  design.  Once  the  interface  is 
completed  it  will  be  tested  for  fully  asynchronous 
communications.  All  problems  encountered  with  the  initial 
design  will  be  documented. 

If  the  initial  design  fails  to  provide  adequate 
asynchronous  communications,  a  design  modification  to  the 
BCH  encoder  will  be  chosen  that  will  provide  fully 
asynchronous  communications.  The  design  modification,  if 
needed,  will  be  implemented  in  hardware  and  tested  for 
proper  operation. 

Materials  and  Equipment; 

1.  Z-100  computer 

2.  Assorted  IC's 

3 .  Logic  Analyzer 

4 .  Logic  Probe 

5.  Wire-wrap  board 

6.  Voltage  regulators  with  heat  sinks 

7.  Assorted  tools 

8.  Ribbon  cables  with  connectors 


9 .  MASM  software 


10. 


Two  Z-80  DARTs 


11.  Function  generator  (156  Khz  square  wave) 

12 .  Multimeter 

13.  Oscilloscope 

Summary; 

A  prototype  BCH  encoder  will  be  interfaced  to  a  Z-100 
computer  to  provide  the  encoder  with  a  source  bit  stream.  A 
prototype  BCH  decoder  will  also  be  interface  to  a  Z-100 
computer  to  provide  the  decoder  with  a  received  bit  stream 
and  to  allow  the  simulation  a  communication  channel.  Both 
system  will  be  tested  to  insure  fully  functional 
asynchronous  serial  transmission  can  be  sustained  by  the 
encoder's  and  decoder's  I/O  port.  The  procedure  for 
demonstrating  the  final  product  can  be  found  in  chapter  six. 
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A  BCH  encoder/decoder,  and  an  interleaver/deinterleaver 
were  designed  and  built  by  Capt  DeGraff  in  a  prior  thesis 
effort.  Capt  DeGraff' s  design  used  a  7474  D  flip  flop  as 
the  basis  for  serial  interface  between  the  components  of 
his  system.  These  interfaces  were  to  allow  a  source  bit 
stream  to  supply  a  source  word  to  the  encoder,  the  encoder 
to  supply  the  encoded  source  word  (code  word)  to  either  a 
channel  simulator  or  a  deinterleaver  (in  the  concatenated 
mode) ,  the  channel  simulator  to  supply  the  transmitted  code 
word  (corrupted  with  noise)  to  the  decoder  (or  deinterleaver 
in  the  concatenated  mode) ,  and  finally  the  decoder  to  supply 
the  decoded  word  to  a  bit  sink.  The  source  bit  stream, 
channel  simulator,  and  bit  sink  were  all  to  be  supplied  as 
software  routines  run  on  dedicated  computers.  The  final 
system  configuration  is  shown  below: 

Each  interface  was  designed  to  support  a  three  wire 
handshake  for  data  transmissions.  The  handshaking  includes 
a  data  line,  data  ready  line,  and  data  request  lines.  The 
received  bit  stream  is  clocked  directly  into  the  system 
component  and  can  not  contain  any  parity,  checksum  or  stop 
bits.  Since  no  direct  interface  exists  from  any  Z-100  I/O 
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its  data  ready  line  high.  Setting  the  data  ready  line  high 
automatically  resets  the  data  request  line  on  the  receiving 
flip  flop.  Once  the  data  request  line  is  reset,  the  sending 
flip  flop  is  free  to  resume  its  polling  of  the  data  request 
line. 

Three :  When  the  data  ready  line  goes  high,  the 
receiving  flip  flop  clocks  the  data  into  its  processor.  As 
soon  as  the  processor  is  finished  processing  the  bit,  the 
receiving  flip  flop  sets  the  data  request  line  high  to 
request  another  data  bit.  Setting  the  data  request  line 
high  automatically  sets  the  data  ready  line  low  on  the 
sending  flip  flop  and  the  process  repeats  again. 

As  can  be  seen  in  the  diagram,  two  7474  D  flip  flops 
are  needed  to  interface  any  two  pieces  of  equipment  for  one 
way  (half  duplex)  data  transmissions.  For  two  half  duplex 
transmissions  a  total  of  four  7474  D  flip  flops  are  needed, 
two  flip  flops  for  half  duplex  signal.  Both  the  encoder  and 
decoder  boards  contained  two  7474  D  flip  flops  enabling  them 
to  perform  two  half  duplex  transmissions.  Typically,  the 
encoder  will  receive  a  bit  stream  from  some  source  (a  Z-100 
computer  in  our  case) ,  encode  the  received  bit  stream  and 
send  the  encoded  bit  stream  to  a  transmitter.  Since  the 
received  bit  stream  and  the  encoded  bit  stream  interface 
with  different  devices  (a  source  and  a  transmitter)  it  is 


expedient  to  have  two  separate  half  duplex  serial  ports  on 
the  encoder.  Similarly,  the  BCH  decoder  needs  to  interface 
to  a  receiver  and  to  a  bit  sink  such  as  a  CRT  that  can 
display  a  message. 

Design  Decisions: 

Design  decisions  made  prior  to  implementing  an  interface 
between  the  Z-100  computer  and  the  BCH  encoder/decoder  are 
as  follows. 

Z-100  Serial  Ports:  Neither  the  serial  A  port  nor  the 

serial  B  port  of  a  Z-100  can  be  used  to  support  data 
transmissions  to  or  from  the  BCH  encoder.  Both  ports  are 
implemented  using  a  Motorola  2661  universal  asynchronous 
receiver  transmitter.  While  the  2661  1C  is  ideally  suited 
to  asynchronous  serial  transmissions,  it  cannot  be  program 
to  exclude  either  start  or  stop  bits.  Since  neither  the  BCH 
encoder  or  decoder  circuitry  can  tolerate  stop  and  start 
bits,  the  serial  A  and  serial  B  ports  cannot  be  used  for  the 
interface. 


Z-100  Parallel  Port:  The  parallel  data  port  on  the  Z- 

100  might  possibly  support  data  transmission  from  the  Z-100 
to  either  the  BCH  encoder  or  decoder.  However,  no  MACRO 
function  MASM  (Micro  Assembler)  call  exits  to  the  operation 
shell  that  allows  data  to  be  imported  through  the  parallel 


I/O  port.  In  fact,  even  if  a  MACRO  call  could  be 
constructed  that  would  allow  inputting  into  the  parallel 
port,  there  is  only  one  parallel  port  available  on  each 
computer  when  two  would  be  needed  to  implement  a  channel 
simulator.  Therefore  the  serial  I/O  port  was  ruled  out  as  a 
means  of  accomplishing  the  interface. 

7474  D  Flip  Flop:  The  interface  currently  existing  on 

the  BCH  encoder  and  decoder  utilizes  a  7474  D  flip  flop  to 
implement  a  three  line  handshake  between  the  encoder  and 
decoder  for  the  transmission  of  data.  Fortunately,  it  is 
possible  to  construct  an  I/O  port  based  on  a  7474  D  flip 
flop  that  will  interface  to  the  S-100  bus  of  a  Z-100 
computer.  Each  computer  is  configured  with  up  to  three 
expansion  slots  on  the  S-100  bus  making  interfacing  to  the 
bus  very  easy.  Once  the  flip  flop  is  interfaced  to  the  bus, 
the  Z-100  can  effectively  control  all  operations  of  its  flip 
flop  exactly  as  the  BCH  encoder  or  decoder  controls 
operations  of  its  flip  flop.  Therefore,  the  method  of 
choice  for  constructing  an  I/O  port  from  the  Z-100  to  the 
BCH  encoder  is  to  use  a  7474  D  flip  flop  based  on  the  design 
inherent  within  the  BCH  encoder  and  decoder. 

Design  Parameters: 

The  design  of  the  Z-100  serial  data  interface  based  on 
a  7474  D  flip  flop  centered  around  three  design  parameters: 
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1)  control  by  the  Z-100  over  the  interface,  2)  j 

characteristics  of  the  7474  D  flip  flop,  and  3)  buffering  of 
address  and  data  lines.  Each  of  these  design  parameters  are 
addressed  below: 


Control  Functions:  The  implementation  of  effective 
data  communications  to  and  from  any  I/O  port  will  ultimately 
allow  the  host  computer  complete  control  over  the  I/O  port. 

A  Z-100  computer  normally  uses  assembly  language  function 
calls  to  exercise  control  over  its  existing  serial  I/O 
ports.  These  calls  are  IN  and  OUT  instructions  embedded 
within  a  software  routine  than  transfers  data  to  and  from 
the  port.  Both  the  IN  and  OUT  instructions  use  a  specified 
port  address  to  direct  the  flow  of  data.  Data  is  clocked 
into  or  out  of  the  port  by  special  processor  signals  that 
occur  during  the  execution  of  the  IN  of  OUT  instruction. 
These  processor  signals  are  available  on  the  S-100  bus  of 
the  Z-100  computer. 

To  implement  control  by  the  Z-100  computer  over  the 
7474  D  flip  flop  both  IN  and  OUT  instructions  are  used  along 
with  their  associated  processor  signals.  In  order  to 
specify  a  unique  port  address  for  the  IN  and  OUT 
instructions,  an  address  decoder  was  construction  for  both 
the  input  port  and  the  output  port  (see  Figures  3  and  4). 
Address  bit  A1  is  inverted  for  the  output  port,  but  not  for 
the  input  port. 
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Figure  4  -  Output  Port  Address  Decoder 
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1  The  7474  D  flipflop 
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consist  of  two  delay  or  following  flip  flops  on  one 
integrated  circuit.  Each  flip  flop  comes  with  is  own 
preset,  clear,  clock,  and  Q  output  lines.  The  clock  line  on 
a  7474  D  flip  flop  is  extremely  sensitive  and  must  be 
isolated  by  a  buffer  to  prevent  inadvertent  triggering  of 
the  clock  by  noise.  Note  that  the  data  request  line  is  tied 
to  the  elk  of  D2  on  the  output  port  flip  flop.  This  data 
request  line  cannot  be  read  as  a  status  bit  (data  request 
high)  without  triggering  the  clock.  Therefore,  the  data 
request  line  is  split  by  a  7407  hex  non-inverting  buffer 
into  two  separate  lines.  One  line  isolated  is  to  the  clock 
alone,  the  other  line  is  used  to  read  in  the  status  bit 
(data  request) . 

Buffering  of  Lines:  All  data  lines  are  buffered  by  a 
DP8216  data  buffer  to  isolate  the  S-100  data  lines  from 
those  used  by  the  I/O  ports.  Data  lines  leading  into  and 
out  of  the  ports  are  active  only  when  the  port  address  is 
active.  All  address  lines  leading  into  the  address  decoder 
are  isolated  by  either  7405  or  7407  hex  buffers  to  prevent 
address  lines  from  inadvertently  being  drawn  either  high  or 
low  by  the  port  operations. 

Signal  Description: 

Control  of  the  input  and  output  ports  by  the  Z-100  CPU 
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requires  the  Z-100  to  provide  signals  to  clear  and  set  the 
data  ready  line,  clear  and  set  the  data  the  request  line, 
and  clock  in  data  both  to  and  from  the  data  line.  Both  the 
input  and  output  port  control  signals  are  discussed 
separately  below: 

Input  Port; 

Data  Request  Line:  The  data  request  line  is 
enabled  (high)  by  presetting  Q1  of  the  7474  D  flip  flop. 

The  preset  input  to  the  7474  D  flip  flop  is  active  low.  A 
low  signal  is  provided  by  the  CPU  to  the  flip  flop  when  AO, 
sOUT,  and  DS  are  all  concurrently  high.  AO,  sOUT,  and  DS 
will  all  be  high  when  the  CPU  issues  an  OUT  command  at 
address  03h  (note  that  DS*  has  been  conditioned  by  an 
invertor  to  yield  DS) . 

Data  Ready  Line:  The  data  request  line  is 
disabled  (low)  when  the  data  request  line  is  enabled. 
Disabling  the  data  request  line  is  most  easily  accomplished 
by  letting  Q2  of  the  7474  D  flip  flop  represent  the  state  of 
the  data  ready  line.  Then,  tying  the  clear  input  of  Q2  on 
the  7474  D  flip  flop  to  the  same  line  controlling  the  data 
request  line  insures  that  Q2  will  always  be  cleared  when  the 
data  request  line  is  preset.  When  the  data  ready  line  goes 
high,  Q2  is  clocked  into  its  high  state  by  the  incoming  data 
ready  signal,  telling  the  CPU  that  data  on  the  data  line  is 
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ready  to  be  clocked  into  the  computers  memory. 

Data;  Data  being  clocked  into  the  input  port  is 
isolated  by  a  7407  non  inverting  buffer  as  it  enters  the 
input  port.  Leaving  the  input  port,  the  data  is  buffered  by 
a  DP8216  quad  line  buffer.  The  DP8216  is  enabled  by  DS*  and 
controlled  by  pDBIN.  Therefore,  data  can  only  be  clocked 
into  memory  when  the  CPU  issues  an  IN  command  at  either 
address  02h  or  03h. 

Clear  Data  Request  Line:  During  the 
initialization  of  the  input  port,  it  is  helpful  to  clear  the 
data  request  line.  The  data  request  line  can  be  cleared  by 
enabling  the  clear  input  of  the  7474  D  flip  flop  to  Ql.  AO, 
sIN,  and  DS  are  combined  by  a  triple  input  nand  gate  to 
provide  the  control  signal  needed.  When  the  CPU  issues  an 
IN  instruction  at  address  03h,  the  data  request  line  will  be 
cleared. 


Qvtpyt  Port; 

Data  Request  Line:  The  data  request  signal 
originates  at  an  input  port  and  is  viewed  as  an  incoming 
signal  by  the  output  port.  The  incoming  data  request  signal 
is  monitored  by  the  CPU  so  that  the  CPU  knows  when  to  place 
new  data  on  the  data  line.  The  data  request  line  also  sets 
the  data  ready  line  of  the  output  port  low.  The  data  ready 
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line  is  represented  by  Q2  of  the  output  port's  7474  D  flip 
flop.  The  incoming  data  request  line  is  tied  to  the  clock 
of  the  7474  D  flip  flop.  Since  D2  is  tied  to  ground,  only  a 
low  signal  can  be  clocked  into  Q2.  Hence,  when  the  data 
request  line  goes  high,  the  data  ready  line  will  go  low. 

Data  Ready  Line;  The  data  ready  line  is  place 
high  by  the  CPU  whenever  new  data  is  place  on  the  data  line. 
Q2  of  the  output  port's  7474  D  flip  flop  is  used  to 
represent  the  data  ready  signal.  Q2  can  be  enabled  by 
enabling  the  present  input  (active  low)  to  the  flip  flop. 

DS,  pDBIN,  and  sOUT  are  combined  by  a  triple  input  nand  gate 
to  provide  the  control  signal  needed.  When  the  CPU  issues  a 
OUT  command  at  address  00,  the  data  ready  line  will  go  high. 

Data:  Data  is  represented  by  Q1  of  the  output 
ports  7474  D  flip  flop.  Data  is  clocked  into  Q1  when  the 
data  ready  line  goes  high.  This  is  accomplished  by  tying 
the  clock  input  of  the  flip  flop  to  the  same  control  signal 
that  sets  the  data  ready  line  high.  The  D  input  to  the  flip 
flop  is  tied  to  DOO  of  the  S-100  bus  through  a  DP8216  quad 
line  buffer.  Data  is  clock  into  the  flip  flop  whenever  the 
CPU  issues  the  command  OUT  at  address  00. 

Clear  Data  Ready  Line:  During  initialization  of 
the  output  port,  it  is  helpful  to  clear  the  data  ready  line. 


The  data  ready  line  can  easily  be  cleared  by  enabling  the 
clear  input  to  Q2  of  the  flip  flop.  AO,  sIN,  and  DS  are 
combined  by  a  triple  input  nand  gate  to  provide  the  control 
signal.  When  the  CPU  issues  an  IN  command  at  address  01, 
the  data  ready  line  is  cleared. 

Circuit  Diagrams;  Circuit  diagrams,  including  pin 
connections,  are  provided  in  Figure  5  (input  port)  and 
Figure  6  (output  port)  on  the  following  two  pages. 

Test  Methodology: 

Introduction:  The  test  methodology  was  developed  to 
provide  a  quantifiable  measure  of  the  7474  D  flip  flop 
interface's  performance.  The  interface  design  was  deemed 
acceptable  when  it  could  receive  a  10  megabit  source  bit 
stream  (in  8  bit  blocks)  into  its  input  port  and  transmit  it 
back  to  the  source  through  its  output  port  without  error. 

The  source  bit  stream  was  generated  from  a  test  bed  that 
could  transmit  and  receive  data  based  on  a  three  wire 
handshake  protocol. 
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Test  Bed:  Capt  DeGraff's  BCH  encoder  was  originally 
considered  for  use  as  the  system  interface  test  bed. 
Unfortunately,  the  encoder  IC  is  not  easily  accessible  to 
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probes  making  it  difficult  to  trap  and  analyze  the  data 
received  by  the  encoder.  In  addition,  the  BCh  encoder  has 
never  been  tested  at  high  bit  rates  (4800  baud  and  above)  it 
is  not  known  whether  the  BCH  encoder  has  any  design  flaws 
that  might  interfere  with  the  serial  transmissions  at  high 
bit  rates.  Therefore,  the  BCH  encoder  was  ruled  out  for  use 
as  test  bed  to  test  the  7474  D  flip  flop  interface. 

An  identical  7474  0  flip  flop  interface  running  on  a 
second  Z-100  provides  a  better  alternative  test  bed.  Each 
interface  consists  of  one  input  and  one  output  port  both  of 
which  have  identical  designs  (based  on  the  interface 
existing  on  the  BCH  encoder) .  Since  the  designs  are 
analogous  to  the  BCH  encoder,  testing  the  interface  using  a 
second  Z-100  will  yield  the  same  results  as  testing  the 
interface  using  the  BCH  encoder.  In  addition,  all  data  and 
control  lines  on  the  Z-100  are  easily  accessible,  making  the 
trapping  and  analysis  of  data  and  signal  flow  relatively 
easy. 

Test  Methodology;  The  test  methodology  chosen  is 
incremental  in  nature  and  consists  of  two  steps.  Each  step 
requires  a  software  driver  to  be  written.  All  software 
drivers  are  included  in  appendix  A. 


Step  One:  The  input  port  and  the  output  port  of 
the  Z-100  interface  are  tied  together  on  a  single  computer. 


The  ports  are  exercised  for  the  proper  transmission  and 
reception  of  data.  Two  separate  software  drivers  are  used: 


Driver  One:  Accept  a  character  from  the 
keyboard  and  transmit  it  out  the  output  port  to  the  input 
port.  Receive  the  character  from  the  input  port  and  display 
it  on  the  screen.  A  visual  check  of  the  screen  will  show 
whether  the  transmission  is  handled  correctly. 

Driver  Two:  Take  a  single  character  and 
transmit  it  out  the  output  loop  to  the  input  port.  Receive 
the  character  from  the  input  port  and  check  the  character 
internally  to  determine  if  the  receive  character  matches  the 
sent  character.  Report  the  number  of  characters  sent  and 
the  number  of  errors  found  on  the  CRT  screen.  Repeat  the 
process  indefinitely. 

Step  Two:  The  input  port  of  the  first  Z-100  is 
tied  to  the  output  port  of  the  second  Z-100  and  the  input 
port  of  the  second  Z-100  is  tied  to  the  output  port  of  the 
first  Z-100.  A  software  driver  is  written  for  each  Z-100: 

First  Z-100:  Accept  a  character  from  the 
keyboard,  echo  it  to  the  screen  and  transmit  the  character 
out  the  output  port  to  the  second  Z-100.  Watch  the  input 
port  to  see  if  the  data  ready  line  goes  high.  When  it  does. 


25 


receive  the  character  from  the  input  port  and  echo  the 
character  to  the  screen.  It  should  be  the  same  character  as 
the  one  originally  sent.  Repeat  this  process  indefinitely. 


Second  2-100:  Receive  a  character  from  the 
input  port,  echo  it  to  the  screen  and  output  this  character 
to  the  output  port.  Repeat  the  process  indefinitely. 

Test  Results; 

Testing  of  the  interface  on  a  single  z-100  (step  one) 
resulted  in  the  successful  transmission  of  over  10  Mbits 
without  error.  The  second  test  (step  two)  had  some 
surprising  results.  The  transmission  invariably  failed 
within  1000  transmitted  bits.  The  failure  was  catastrophic, 
with  no  ability  to  recover  transmission.  Types  of  failures 
occurring  included  missed  bits  (the  failure  of  the  receiving 
Z-100  to  receive  all  8  bits) ,  improper  bits  (bits  that  are 
inverted  in  state) ,  and  failure  to  transmit  because  both  Z- 
100* s  fall  into  a  receive  only  mode. 

Pigcvgsl9n; 

Failure  to  transmit  between  the  two  separate  Z-lOOs 
probably  occurred  because  the  lines  were  sampled  as  the 
lines  were  changing  state  (amounting  to  a  contention  between 
states) .  Unfortunately,  it  is  impossible  to  program  the 
existing  lab  equipment  to  trap  the  status  of  all  signals 


when  such  a  contention  arises,  so  it  is  impossible  to  prove 
the  actual  cause  of  the  failure. 


However,  the  failures  observed  are  well  known  and 
documented  for  networks,  and  the  solution  to  network 
contentions  has  traditionally  been  the  addition  of  protocol 
to  the  transmission.  Since  the  two  Z-lOOs,  when  attempting 
to  communication  to  one  another  through  the  customized  I/O 
ports,  constitute  a  crude  network,  it  seems  reasonable  to 
add  protocol  to  their  transmissions  to  solve  the  observed 
contention  problems. 

The  addition  of  protocol  to  the  software  drivers  was  in 
fact  tried.  Appendix  B  contains  the  software  used.  The 
protocol  attempted  to  determine  if  the  character  (8  bits) 
was  sent  in  its  entirety,  and  if  not,  the  character  was 
retransmitted.  In  addition,  the  protocol  attempted  to 
determine  if  a  single  bit  was  transmitted  correctly  by 
repeatedly  sampling  the  transmitted  bit.  Although  the 
protocol  was  successful  in  raising  the  average  number  of 
bits  transmitted  before  a  failure  occurred,  it  did  not 
succeed  in  preventing  failures. 

The  question  arises  as  to  why  transmission  on  a  single 
Z-100  (to  and  from)  were  so  successful  (10  Mbits  without  an 
error)  when  transmissions  between  two  Z-lOOs  were  so 
inadequate.  This  can  be  explained  by  the  execution  of  the 
software  driver  written  to  handle  the  data  transmission. 

The  software  takes  one  bit  of  a  character,  places  in  on  the 
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output  port,  then  goes  to  the  input  port  to  see  if  the  bit 
is  there.  Since  it  takes  the  execution  tine  of  several 
instructions  for  the  Z-100  to  switch  fron  outputting  the  bit 
to  determining  if  it  is  at  the  input  port,  the  7474  D  flip 
flop  has  had  ample  time  to  complete  its  transitions  and 
stabilize.  The  net  results  is  that  when  the  Z-100  goes  to 
look  for  the  bit  at  the  input  port,  the  bit  is  always  there 
and  always  stable.  The  software  acts  as  a  type  of 
synchronization  between  transmission.  Of  course,  this  type 
of  synchronization  will  never  occur  between  two  separate  Z- 
100s  (with  separate  internal  clocks)  trying  to  talk  to  each 
other. 

More  protocol  could  be  added  (beyond  what  was  initially 
tried)  by  adding  start  bits,  stop  bits,  and  parity. 
Unfortunately,  the  BCH  encoder,  as  designed  will  not  support 
such  additions  of  protocol.  The  BCH  encoder  must  receive 
raw  data  alone,  the  encoder  has  no  provisions  to  strip  out 
any  support  bits. 

Conclusion; 

An  interface  between  a  Z-100  and  a  BCH  encoder  based  on 
a  7474  D  flip  flop  is  unworkable.  A  new  interface  that 
supports  asynchronous  serial  transmissions  is  needed. 

Recommendation: 

An  interface  base  on  a  Universal  Asynchronous  Receiver 
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Transmitter  (UART)  should  be  added  to  the  BCH  encoder.  A 
UART  provides  RS232  standard  serial  transmissions  that  can 
be  tied  directly  to  any  computers  serial  I/O  ports  (no 
customized  ports  are  needed) .  The  UART  provides  protocol  in 
the  form  of  start,  stop,  and  parity  bits.  In  addition,  the 
UART  can  be  programmed  to  synchronize  its  sampling  of 
transmissions  based  on  a  start  bit,  virtually  eliminating 
the  chance  of  missampling  a  bit. 


The  previous  chapter  concluded  with  the  statement  that  the 


serial  I/O  port  to  the  BCH  encoder  is  unworkable  as  it  is 
presently  designed.  The  encoding  function  of  the  BCH  encoder  is 
implemented  by  a  finite  impulse  response  (FIR)  filter  and  can  be 
easily  isolated  from  the  serial  I/O  port  function.  Modifying  the 
BCH  I/O  port  based  on  a  Universal  Asynchronous  Receiver 
Transmitter  (UART)  will  completely  restore  the  BCH  encoders 
functionality,  and  by  using  a  Dual  Asynchronous  Receiver 
Transmitter  (DART) ,  the  BCH  encoder  will  have  the  two  separate 
I/O  ports  it  needs  to  meet  its  interface  requirements. 

Background: 

The  DART  is  composed  of  two  Universal  Asynchronous  Receiver 
Transmitters  (UARTs) .  Each  UART  provides  the  capability  for  half 
duplex  transmissions  over  a  single  serial  port  along  with  an 

I 

interface  for  modem  control.  Control  lines  to  the  UART  allow  the 

designer  complete  control  over  UART  functions. 

The  DART  relieves  the  user  from  the  task  of  breaking  a  data 

I 

byte  into  single  bits,  transmitting  the  bits  serially,  and 
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reassembling  the  bits.  The  user  simply  loads  the  DART  with  the 

byte  to  be  transmitted  and  receives  reassembled  bytes  from  the 

DART  upon  the  return  transmission.  All  start  bits,  stop  bits, 

and  parity  bits  are  added  by  the  DART  independently  of  user 

action.  Data  and  framing  errors  are  relayed  to  the  user  through  * 

a  special  status  register  located  in  the  DART. 

Data  lines  into  and  out  of  the  UART  are  triply  buffered  to 
insure  data  byte  isolation.  The  UART  is  programmable  from  300  to 
800K  bits  per  second,  and  provides  internal  sampling 
synchronization  based  on  the  start  bit  and  the  programmed 

transmission  rate.  The  internal  sampling  synchronization  can  be  ^ 

program  from  1  to  32  times  the  bit  rate.  By  selecting  a  sampling 

synchronization  rate  of  16,  for  example,  the  DART  automatically 

sets  its  internal  sampling  clock  to  16  times  the  transmission 

rate.  The  DART  will  sample  the  incoming  bit  stream  every  16 

clock  pulses  (of  the  internal  clock) ,  starting  its  first  sample 

at  the  center  of  the  pulse  representing  the  start  bit.  The  DART 

effectively  synchronizes  its  sampling  of  the  incoming  data  to  the 

data  transmission  rate  thereby  preventing  the  sampling  of  data 

during  the  data's  transition  from  one  state  to  another  (Campbell, 

1987:  151-161). 
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The  DART  will  be  configured  to  interface  directly  to  the 
serial  port  of  a  Z-100  computer.  Using  the  J2  port  (modem  or 
Data  Terminal  Equipment  (DTE)  port)  requires  the  DART  to  be 
configured  as  a  Data  Communication  Equipment  (DCE)  device. 

The  DART  will  be  configured  to  transmit  at  9600  baud  to  interface 
to  the  Z-100  modem  port.  Experience  has  shown  that  for  short 
transmissions,  no  parity  bit  is  required.  Therefore  the  parity 
bit  will  be  disabled  on  both  the  DART  and  Z-100  ports. 

Using  the  Z-100  serial  port  limits  the  design  to  strict  RS- 
232  standards.  Therefore  the  BCH  encoder  will  use  a  DP1488  Quad 
Line  Driver  and  DP1489  Quad  Line  Receiver  to  condition  the 
transmission  line  signals  to  RS-232  standards  (±  12  volts,  see 
Figure  7) . 

The  BCH  encoder  will  undergo  a  prototype  design  on  a  S-100 
wirewrap  board.  Using  the  S-100  wirewrap  board  enables  the 
design  to  interface  directly  with  a  Z-100  CPU  through  the  S-100 
bus  located  on  the  Z-100  mother  board.  All  control  signals  that 
are  software  programed  will  be  provided  to  the  BCH  encoder  by  the 
Z-100  CPU  through  the  S-100  bus.  Designing  the  BCH  encoder  on 
the  S-100  wirewrap  board  allows  the  designer  greater  flexibility 
in  monitoring  signals  and  implementing  design  changes.  All  data 
lines  between  the  DART  and  the  Z-100  are  buffered  by  DP8216 
bidirectional  bus  transceivers.  A  customized  address  decoder  is 


provided  to  isolate  chip  enable  control  signals  to  a  specific 
command  address  (see  Figure  7) . 

Signal  Description: 

The  DART  is  controlled  by  the  CPU  through  signals  provided 
on  the  S-100  bus.  Details  of  these  control  signals  are  provided 
in  the  following  discussion  (note  that  the  pin  numbers  given 
indicate  pins  found  on  the  DART) : 

1.  Pins  5,  6,  &  7  (INT*,  IEI,  IEO) .  Both  interrupt  enable 
signals  (IEI  and  IEO)  are  tied  to  ground.  Interrupts  are  not 
used  to  implement  the  design.  Since  interrupts  are  disabled, 

INT*  will  not  affect  the  DART  operation.  INT*,  therefore,  is 
allowed  to  float. 

2.  Pin  8  (Ml*).  Ml*,  machine  cycle  one,  is  used  in  conjunction 
with  IORQ*  to  acknowledge  an  interrupt.  Since  interrupts  are 
disabled,  Ml*  is  disabled  by  tying  it  to  +5  volts. 

3.  Pin  9  (V^) .  Tied  to  +5  volts. 

4.  Pin  10  (W/RDYA*) .  Normally,  the  wait/ ready  states  are  user 
defined  to  one  function  (either  wait  or  ready) .  Once  defined, 
W/RDYA*  is  used  to  implement  I/O  control  from  the  CPU  to  the  Z-80 
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Dart  and  vice  versa.  The  BCH  encoder  design  will  utilize 
software  to  implement  DART  control  by  polling  the  appropriate  Z- 
80  DART  status  registers  and  providing  appropriate  I/O  functions 
based  on  the  returned  status  bits.  W/RDYA*  is  not  used  in  the 
design  and  is  therefore  allowed  to  float. 

5.  Pin  11  (R/A*) .  R/A*,  ring  indicator  for  channel  A,  is  used 

to  receive  a  request  for  connection  in  switched  line  operations. 
When  the  input  goes  low,  the  Z-80  DART  interrupts  the  CPU.  This 
function  is  not  implemented  in  the  design.  Therefore,  R/A*  is 
disabled  by  tying  it  to  +5v. 

6.  Pin  12  (RxDA) .  Data  is  received  by  the  Z-80  Dart  at  this  pin 
from  the  serial  bit  stream.  No  control  is  implemented  here, 
however,  the  line  into  pin  12  is  conditioned  by  the  DS1489  Quad 
Line  Receiver. 

7.  Pins  13  and  14  (RxCA*  and  TxCA*).  The  receiver  and 
transmitter  clocks  are  programmed  for  9600  baud.  The  design 
implements  a  divide  by  16  command  for  the  clock  inputs.  This 
requires  153.6  KHz  at  the  inputs  of  pins  13  and  14. 

8.  Pin  15  (TxDA) .  TxDA  is  used  to  transmit  data  from  the  Z-80 
DART  to  a  receiving  DTE  device.  TxDA  requires  no  control 


functions.  The  outgoing  line  is,  however,  conditioned  by  the 
DS1488  Quad  Line  Driver. 

9.  Pin  16  (DTRA*) .  DTRA* ,  data  terminal  ready,  is  an  output 
signal  used  to  inform  the  receiver  of  a  ready  condition.  It  is 
not  used  in  the  design  and  is  therefore  allowed  to  float. 

10.  Pin  17  (RTSA*) .  RTSA* ,  ready  to  send,  is  shown  connected  to 
pin  5  (CTS  -  clear  to  send)  of  the  DTE  interface.  When  RTSA  is 
enable,  the  receiving  transmitter  is  enabled  if  the  DTE  device  is 
in  auto  enable  mode.  This  tells  the  DTE  device  to  send  the  data 
that  is  loaded  into  its  transmitter  buffer.  The  line  from  the  Z- 
80  to  the  H-29  is  conditioned  by  a  DS1488  Quad  Line  Driver  to 
meet  RS-232  standards. 

11.  Pin  18  (CTSA*) .  CTSA* ,  clear  to  send,  is  connected  to  pin  4 
(RTS  -  request  to  send)  of  the  H-29  DTE  interface.  The  DART  is 
not  configured  for  auto  enable,  therefore  CTSA*  cannot  not  enable 
the  DART'S  transmitter.  Instead,  the  CPU  will  poll  the  status 
register  which  will  indicate  that  CTSA  has  been  enabled  by  the 
DTE  device.  When  the  CPU  knows  that  CTSA  is  enabled,  the  CPU 
will  load  the  transmitter  buffer  with  a  data  byte.  The 
transmitter  of  the  DART  is  always  in  the  enabled  mode  and  the 
loaded  byte  will  automatically  be  sent.  Since  CTSA*  must  meet 
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RS-232  standards,  it  is  conditioned  by  a  DS1489  Quad  Line 
Receiver. 

12.  Pin  19  (DCDA*) .  Data  carrier  detect  ( DCDA* )  is  clocked  into 
register  0,  bit  3,  of  the  Z-80  Dart.  Our  design  shows  DCDA* 
connected  to  pin  20  (DTR  -  data  terminal  ready)  of  the  DTE 
interface  to  provide  terminal  on/off  condition  information  to  the 
Z-80  DART.  Similar  information  is  available  through  CTSA*,  that 
is,  the  H-29  terminal  must  be  on  to  provide  a  request  to  send 
signal . 

13.  Pin  20  (CLK) .  Tied  directly  to  the  CPU  clock  -  Phi. 

14.  Pin  21  (RESET*).  Tied  directly  to  the  CPU  reset  -  RESET*. 

15.  Pin  22  through  30.  These  pins  are  used  for  channel  B  and  do 
not  apply  to  the  design.  They  are  allowed  to  float. 

16.  Pin  31  (Gnd) .  Tied  directly  to  system  ground. 

17.  Pin  32  (RD*) .  RD*,  read,  is  an  input  line  used  to  inform  the 
Z-80  DART  when  the  CPU  is  reading  data  from  memory  or  from  an 
I/O.  This  is  equivalent  to  the  CPU  state  that  occurs  when  pDBIN 
goes  high.  Therefore  pDBIN  is  connect  through  an  invertor  to  RD* 
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of  the  2-80  DART. 

18.  Pin  33  (C/D*).  C/D*,  control  or  data  select  input  line 

provides  the  CPU  either  control  or  data  input  conditions  for  the 
Z-80  DART.  When  this  line  is  a  logical  0,  the  D0-D7  pins  on  the 
Z-80  DART  are  used  for  data  I/O.  When  the  line  is  a  logical  1, 
the  D0-D7  pins  are  used  for  control  information.  The  system 
address  line  AO  provides  this  information  to  the  DART.  Address 
OOh  corresponds  to  channel  A  -  I/O  data  port,  address  Olh 
corresponds  to  channel  A  -  Status  and  Command  port.  Note  that 
the  least  significant  bit,  AO,  provides  the  necessary  condition 
for  the  selection  of  control  or  data  input  as  needed.  Therefore, 
AO  is  tied  directly  to  pin  33. 

19.  Pin  34  (B/A*) .  Although  channel  B  is  not  used  for  the 
initial  BCH  encoder  design,  provisions  have  been  made  to  expand 
the  design  to  include  channel  B.  The  design  allows  a  future 
expansion  to  include  channel  B  by  tying  pin  34  to  address  line 
Al.  Then  all  address  to  either  00  or  01  will  access  channel  A 
while  all  addresses  to  either  02  or  03  will  access  channel  B. 

20.  Pin  35  (CE*) .  Chip  enable  is  tied  directly  to  DS*  of  the 
address  decoder.  When  either  address  OOh  or  Olh  for  channel  A  or 
02h  or  03h  for  channel  B  is  used  by  the  CPU,  the  Z-80  DART  is 
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enabled.  See  figure  3  for  a  schematic  of  the  address  decoder. 


21.  Pin  36  (IORQ*).  IORQ* ,  input  and  output  request,  is  an  input 
signal  to  the  Z-80  DART.  It  is  used  by  the  CPU  to  inform  the  Z~ 
80  DART  that  the  CPU  is  performing  an  input  or  an  output 
operation.  Our  design  implements  this  control  signal  through  the 
use  of  pDBIN  and  pWR*.  A  truth  table  shoving  input  signal  states 
and  the  desired  output  is  given  below  along  with  a  logic  diagram 
implementing  the  truth  table  criteria. 


pDBIN 

pWR* 

Desired  Output 

Exclusive  Or 

0 

0 

0 

0 

0 

1 

1 

1 

1 

0 

N/A 

1 

1 

1 

0 

0 

Note:  pDBIN  should  never  be  high  when  pWR*  is  low.  This 
equates  to  a  read  and  write  cycle  occurring  simultaneously,  our 
design  disable  IORQ*  under  this  condition  to  complete  the  truth 
table. 

Figure  8  shows  the  control  signal  implementation  for  both 
IORQ*  and  RD*.  Exclusive  Or  gates  were  chosen  for  both  circuits 
to  minimize  chip  count. 
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Figure  8  -  RD*  and  IORQ*  Implementation 


I 

Test  Methodology: 

To  meet  operational  requirements,  the  DART  must  be  able  to 
transmit  or  receive  at  least  10M  bits  of  information, 
consecutively,  without  error.  Two  software  drivers  were  written 
to  implement  the  test  (see  appendix  C) . 

Driver  One:  From  a  Z-100,  initialize  the  modem  port  (J2)  to 
9600  baud,  one  stop  bit,  no  parity,  8  bits/ character,  and  xl6 
clock.  Transmit  one  character  (8  bits)  out  the  J2  port  directly 
to  the  DART  located  on  a  second  Z-100.  Once  the  character  has 
been  transmitted,  poll  J2  for  a  received  character  (the  DART  will 
retransmit  the  character  back  to  J2) .  Extract  the  received 
character  from  J2  and  compare  it  to  the  sent  character.  Repeat 
the  process  for  10M  bits  while  reporting  the  outcome  (number  of 
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characters  sent  and  number  of  bad  characters  received)  to  the 
CRT. 


Driver  Two:  Using  a  Z-100  to  send  commands  to  a  DART 
through  the  S-100  bus,  initialize  the  DART  to  9600  baud,  one  stop 
bit,  no  parity,  8  bits/ character,  and  xl6  clock.  Receive  a 
character  into  the  DART,  echo  the  character  to  the  CRT,  and 
retransmit  the  character  back  to  the  first  Z-100. 

Test  Results: 

Five  test  runs  were  conducted  over  two  days.  Each  test  run 
required  about  2  hour  and  15  minutes  to  transmit  10.4  Mbits  at 
9600  baud  from  a  Z-100  to  the  DART  and  back  to  the  Z-100.  Each 
word  (8  bits)  of  information  transmitted  was  compared  to  the 
received  word  to  determine  the  number  of  errors  occurring.  The 
first  test  run  was  started  while  the  equipment  was  at  room 
temperature.  Data  collected  during  the  test  showed  errors 
occurring  at  the  rate  of  one  error  per  word  transmitted.  The 
error  rate  drop  to  zero  as  the  equipment  warmed  up  to  the 
operating  temperature.  Data  from  the  first  test  can  be  found  in 
appendix  D. 

The  four  remaining  test  runs  were  all  conducted  at  the 
system  operating  temperature.  No  errors  were  recorded  for  the 
first  three  test  runs.  The  fifth  test  run  recorded  two  errors. 
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both  occurring  within  the  last  5  Minutes  of  the  test. 

A  final  test  run  was  conducted  one  week  later.  For  this 
test,  the  external  clock  was  set  at  166.6  KHz  (6  usec/clock 
pulse).  At  166.6  KHz,  the  systeM  performed  well  both  at  room 
temperature  and  at  operating  temperature. 

Discussion  and  Conclusions: 

Errors  in  transmissions  occur  because  the  sampling  of  a 
particular  bit  is  erroneous.  The  sampling  rate  for  the  DART  is 
tied  to  an  external  clock,  which  was  originally  set  at  153.6  KHz. 
A  change  in  the  external  clock  rate  will  result  in  sampling 
errors  when  the  change  takes  the  external  clock  outside  of  its 
proper  operating  range. 

When  the  clock  was  set  at  153.6  KHz,  it  is  possible  that  the 
clock  was  set  just  outside  of  its  proper  operating  range,  causing 
errors  to  occur  at  room  temperature.  As  the  clock  warmed  up,  it 
shifted  to  a  slightly  higher  frequency,  just  inside  its  normal 
operating  range,  allowing  the  DART  to  work  perfectly  at  operating 
temperatures . 

The  two  errors  of  the  fifth  test  run  may  be  attributed  to 
random  noise.  They  represent  a  error  rate  of  1  in  20.8  H  bits 
transmitted  and  can  be  tolerated  for  the  purposes  of  this  thesis. 

A  DART  configured  for  one  stop  bit,  one  start  bit,  no 
parity,  9600  baud,  and  xl6  clock  will  work  best  with  the  external 
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As  mentioned  earlier  in  this  thesis,  FTD  has  an  interest 


i 

in  testing  the  performance  of  a  BCH  encoder  over  several 
communication  channels.  Chapter  four  describes  the  BCH 
encoder,  the  circuitry  used  to  build  the  encoder,  and  the  j 

methodology  used  to  test  the  encoder  for  correct  operation. 

Background: 

The  BCH  code  originated  from  the  work  of  three 
individuals  (Bose,  Chaudhuri,  and  Hocquenghem)  in  the  early 
1960s.  The  first  letter  of  each  individuals  last  name  was 
combined  to  name  the  code  (BCH) .  The  BCH  codes  are  cyclic 
in  nature,  mean  that  rotating  a  code  word  any  number  of  bits 
either  left  or  right  will  still  result  in  a  code  word.  BCH 
codes  are  often  thought  of  as  a  generalization  of  the 
Hamming  code  and  are  used  as  single  or  multiple  error 
correcting  codes.  (Lin  and  Costello,  1983:141) 

A  discussion  of  codes,  encoding,  and  decoding  begins 
with  the  length  of  the  code  word  (n) ,  the  length  of  the 
source  word  to  be  encoded  (k) ,  and  the  number  of  errors  to 
be  corrected  in  any  given  code  word  (t) .  Encoding  is  the 
process  of  taking  a  source  word  of  length  k  and  adding  error 
checking  bits  to  the  word  resulting  in  a  code  word  of  length 
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n.  The  idea  is  to  add  enough  error  checking  bits  to  the 
code  word  so  that  single  or  multiple  errors  can  be  found  and 
corrected  after  the  code  word  has  been  transmitted  and 
received.  Describing  a  particular  coding  scheme  is  done  by 
giving  the  length  of  the  code  word  and  the  length  of  the 
source  word  in  parenthetical  notation  (n,k)  followed  by  the 
number  of  errors  the  coding  scheme  can  correct.  As  an 
example,  one  useful  coding  scheme  is  describe  as  a  (15,7) 
double  error  correcting  BCH  code. 

BCH  codes  are  characterized  by  the  following  parameters 
(given  m  is  an  integer  >  3  and  t  <  2("  1}) : 

1)  N  =  2"  -  1. 

2)  Number  of  error  checking  digits  <  m  *  t. 

Note  that  the  number  of  error  checking  digits  also 
equals  n  -  k. 

(Blahut,  1984:162) 

The  BCH  code  characteristics  given  above  result  in  the 
following  table  of  BCH  codes  for  m  <  6: 


3 

7 

4 

1 

4 

15 

11 

1 

4 

15 

7 

2 

4 

15 

5 

3 

5 

31 

26 

1 

5 

31 

21 

2 

5 

31 

16 

3 

5 

31 

11 

5 

5 

31 

6 

7 

6 

63 

57 

1 

6 

63 

51 

2 

6 

63 

45 

3 

6 

63 

39 

4 

6 

63 

36 

5 

6 

63 

30 

6 

6 

63 

24 

7 

6 

63 

18 

10 

6 

63 

16 

11 

6 

63 

10 

13 

6 

63 

7 

15 

To  generate  a  BCH  code  word,  the  encoder  receives  a 
source  word  and  multiplies  it  by  a  generator  polynomial. 

For  the  purpose  of  this  thesis,  the  source  word,  generator 
polynomial,  and  the  code  word  are  all  represented  as  binary 
polynomials.  For  instance,  the  source  word  11  (in  bits)  is 
represented  as  x  +  1.  The  source  word  1001  is  represented 
as  x3  +  1.  The  multiplication  of  the  source  polynomial  and 
the  generator  polynomial  is  strictly  algebraic  but  follows 
the  rules  for  exclusive-or  binary  addition  to  combine  terms. 

Calculating  the  generator  polynomial  requires  the  use 
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of  prime  polynomials  of  degree  m  within  a  Galois  Field  (2*) 
and  the  determination  of  the  minimal  polynomial  for  i  -  i  . . 
2t  over  the  source  words  within  the  Galois  Field.  For  a 
more  through  discussion  of  Galois  Fields  and  minimal 
polynomials,  the  reader  is  referred  to  Blahut  pages  162-166. 

Generator  Polynomial ; 

Transmitting  bits  of  information  between  the  Z-100  and 
the  BCH  encoder  is  easiest  to  accomplish  if  the  number  of 
bits  transmitted  is  the  length  of  a  byte  (8  bits)  since  the 
MASM  calls  and  registers  within  the  Z-100  are  built  to 
handle  a  byte  of  information  at  a  time.  Each  byte 
transmitted  is  taken  from  the  ASCII  character  set  and  is  7 
bits  in  length.  The  eighth  bit  transmitted  is  always 
defined,  but  not  really  needed  to  represent  the  ASCII 
character.  Therefore,  a  BCH  code  that  has  k  equal  to  7  or  8 
bits  is  most  useful  for  the  transmissions  that  are  occurring 
between  the  Z-100  and  the  BCH  encoder. 

For  m  <  6,  the  BCH  codes  with  k  =  7  or  8  are: 

(15.7)  2  error  correcting  BCH  code 

(63.7)  15  error  correcting  BCH  code 

To  calculate  the  generator  polynomial  for  the  (15,7) 

BCH  code  (m=4),  a  Galois  Field  of  GF(24)  is  chosen  using  the 
primitive  polynomial  p(z)  =  z4  +  z  +  1.  The  minimal 
polynomials  for  all  the  field  elements  over  GF(24)  is  given 
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in  Table  2: 


Table  2  -  Minimal  Polynomials  over  GF(24) 


Field  Element (s) 
a1 ,  a2 ,  a4 ,  a8 

a7;®", a”, a’* 


Minimal  Polynomial 


^  +  3  +  12 

X  +  +  X  + 

x2  +  X  +  1 
:4  +  x3  +  l 


x  +  1 


(Blahut,  pg  163) 


The  generator  polynomial  is  found  by  multiplying  the 
Lowest  Common  Multiple  (LCM)  of  the  minimal  polynomials  for 
the  field  elements  ranging  from  a1  . .  a2t  where  t  equals  the 
number  of  errors  corrected  by  the  BCH  code.  For  the  (15,7) 
2  error  correcting  code  chosen,  the  generator  polynomial 
(g(x))  is  given  as: 

g(x)  =  LCM  (a1, a2, a3, a4) 

g(x)  =  (x4  +  x  +  1)  (x4  +  x3  +  x2  +  x  +  1) 

g(x)  -  x8  +  x7  +  x6  +  x4  +  1 

or  in  binary: 

g(x)  *  111010001 

(Blahut,  1985:163-164) 


Multiplier  Circuitry; 

Fortunately,  many  simple  circuits  taken  from  the  family 
of  finite  impulse  response  (FIR)  (non- recursive)  digital 
filters  work  beautifully  to  multiply  polynomials.  The  BCH 


encoder  constructed  for  this  thesis  uses  a  linear- 
feedforward  shift  register  FIR  (shown  below)  for  its 
mul t ipl icat ion . 


Figure  9  -  FIR  Multiplication  Circuit 


A  quick  example  demonstrates  the  operation  of  the  FIR. 
The  generator  polynomial  shown  can  be  represented  by  x8  +  x7 
+x4+x2+x+l.  The  generator  polynomial  will  be 
multiplied  by  the  code  word  01100001  (ASCII  Ha") .  Note  that 
the  high  order  bit  of  the  ASCII  "a"  enters  the  encoder  first 
and  that  the  high  order  bit  of  the  encoded  word  (the  result) 
is  read  from  the  FIR  first.  Each  stage  of  the 
multiplication  is  given  in  Table  3. 


Table  3  -  Register  States  for  Multiplication 


1  Clock 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

Result 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

1 

0 

0 

0 

0 

0 

0 

0 

0 

1 

3 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

1 

1 

0 

0 

0 

0 

0 

0 

1 

5 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

6 

0 

0 

0 

1 

1 

0 

0 

0 

0 

1 

!  7 

0 

0 

0 

0 

1 

1 

0 

0 

0 

1 

8 

1 

0 

0 

0 

0 

1 

1 

0 

0 

0 

9 

0 

1 

0 

0 

0 

0 

1 

1 

0 

1 

10 

0 

0 

1 

0 

0 

0 

0 

1 

1 

0 

11 

0 

0 

0 

1 

0 

0 

0 

0 

1 

1 

12 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 

1  13 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

14 

0 

0 

0 

0 

0 

0 

1 

0 

0 

1 

15 

0 

0 

0 

0 

0 

0 

0 

1 

0 

1 

16 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

17 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

The  result  is  0101011010110111  (binary) ,  or  xu  +  x12 
+x10  +  x9  +  x7  +  x5  +  x4  +  x2  +  X  +  1. 


Control  Circuitry: 

The  BCH  encoder  is  controlled  by  three  signals:  one  to 
clear  the  encoder,  one  to  clock  data  into  the  encoder,  and 
one  to  clock  data  out  of  the  encoder.  Each  control  signal 
must  be  isolated  from  all  other  control  signals  to  the  BCH 
encoder  as  well  as  control  signals  occurring  on  the  S-100 
bus  and  control  signs  to  the  Z-80  DART.  Isolation  of  the 
control  signals  is  accomplished  through  a  74139  Dual  2  to  4 
Decoder.  The  decoder  enable  input  is  tied  to  DS*  linking 
the  decoder  function  directly  to  the  Z-80  DART  and  isolating 
the  decoder  from  any  S-100  internal  control  functions. 


I 
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Pins  Al  and  B1  of  the  decoder  are  tied  to  address  lines 
A14  and  A15,  neither  of  which  are  used  by  the  Z-80  DART'S 
address  decoder.  A14  and  A15  provide  control  over  the 
decoder  operation  independently  of  Z-80  DART  operation. 

Since  the  74139  control  lines  (Y1  through  Y3)  are  asserted 
(low)  ONLY  when  A14  and/or  A15  are  asserted  (high) ,  the  BCH 
encoder  is  active  only  when  address  4000,  8000,  and  cooo 
(hex)  are  asserted.  DART  operations  Bust  be  disabled  (Tx 
disabled)  because  the  DART  will  misinterpret  OUT  commands  at 
the  BCH  encoder  address  as  an  instruction  to  load  its 
transmit  buffer. 

Data  is  routed  into  the  DART  through  D07  of  the  S-100  bus 
and  is  not  affected  by  DART  operations.  Data  is  routed  from 
the  BCH  encoder  into  the  Z-100  through  DIO.  DIO  is 
multiplexed  from  both  the  BCH  encoder  and  Z-80  DART  to 
insure  that  input  data  is  always  taken  from  one  source  at  a 
time. 

The  encoder  clock  and  encoder  clear  functions  are 
narrowed  by  combining  pWR*  on  the  S-100  bus  with  the 
appropriate  74139  decoder  output  lines.  The  narrowed 
control  pulses  are  necessary  to  prevent  inadvertent 
triggering  of  the  74139  output  lines  when  DS*  changes  during 
transitions  of  A14  and  A15.  These  state  changes  can  cause 
Y2  of  the  74139  to  momentarily  go  low,  clearing  the  BCH 
encoder  registers  which  (obviously)  prevents  the 
multiplication  of  the  code  word  with  the  generator 
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polynomial . 


Schematics: 

Circuit  diagrams  are  given  for  both  the  BCH  encoder  and 
the  control  circuitry  in  Figures  10  and  11  on  the  following 
pages . 

Test  Methodology; 

The  BCH  encoder  must  successfully  encoded  a  given  set 
of  code  words  for  a  variety  of  generator  polynomials  to  be 
deemed  fully  acceptable.  The  test  methodology  chosen 
requires  the  BCH  encoder  to  encode  the  ASCII  set  of 
characters  (the  code  words)  using  generator  polynomials 
varying  from  order  1  to  order  8.  Beyond  order  8,  it  becomes 
impractical  for  the  Z-100  register  set  to  handle  the 
polynomial  multiplication. 

A  single  software  test  routine  was  written  to  test  the 
BCH  encoder  (see  appendix  E) .  The  test  routine  prompts  the 
user  for  the  generator  polynomial  as  an  ASCII  character  -  30 
hex.  Subtracting  30 (hex)  from  an  ASCII  character  results  in 
numerics  (1-9)  being  represented  as  their  binary  value  in 
the  Z-100  registers.  The  generator  polynomial  entered  by 
the  user  must  be  set  on  the  BCH  encoder  using  the 
appropriate  dip  switches. 


Figure  10  -  BCH  Encoder  Control  Circuitry 
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Once  the  generator  polynomial  has  been  entered  into  the 
computer  by  the  user,  the  computer  will  prompt  the  user  for 
the  value  of  n-k  (or  the  order  of  the  generator  polynomial) . 
With  this  information  the  computer  will  format  its  registers 
to  conduct  the  polynomial  multiplication. 

Next,  the  computer  prompts  the  user  for  a  ASCII 
character  (the  source  word) .  After  the  source  word  is 
entered,  the  computer  generates  the  code  word  using  a 
software  routine  and  displays  the  code  word  on  the  screen. 
Then  the  computer  sends  the  source  word  through  the  BCH 
encoder,  padding  the  source  word  with  the  appropriate  number 
of  zeros.  The  code  word  received  from  the  BCH  encoder  is 
displayed  on  the  screen  directly  under  the  code  word 
generated  by  the  computer.  If  the  two  code  words  are 
identical,  the  BCH  encoder  worked  correctly  for  that  source 
word. 

T<i?st  Remits; 

Three  generator  polynomials  (1001,  10001,  and  111010001 
-  binary)  were  selected  to  test  the  BCH  encoder.  Source 
words  were  picked  at  random  from  the  keyboard.  In  all  cases 
the  encoder  worked  perfectly. 

Conclusions  and  Recommendations: 

The  linear  feed-forward  shift  register  chosen  to 
implement  the  BCH  encoder  performs  extremely  well.  The  BCH 
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encoders  performance  remains  stable  at  the  data  rates  needed 
to  interface  to  a  Z-100  computer. 
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The  counterpart  to  the  BCH  encoder  is  the  BCH  decoder. 
The  decoder  receives  the  code  word  after  the  code  word  has 


been  transmitted  over  free  space  from  the  encoder.  The 
decoder  is  responsible  for  correcting  any  errors  in  the  code 
word  (up  to  a  specified  limit)  that  might  have  occurred 
during  transmission,  and  decoding  the  corrected  code  word  to 
produce  the  original  transmitted  source  word.  Chapter  five 
describes  the  nature  of  a  BCH  decoder,  the  circuitry  used  to 
build  a  BCH  decoder,  and  the  test  methodology  used  to  test 
the  final  product. 

Background: 

A  BCH  code  word  is  generated  by  selecting  a  source  word 
and  multiplying  the  source  word  by  a  given  generator 
polynomial  to  produce  the  code  word.  Decoding  the  code  word 
uses  the  same  generator  polynomial  to  divide  the  code  word, 
resulting  in  the  original  source  word  as  the  quotient  of  the 
division. 

A  problem  arises,  however,  when  the  transmitted  code 
word  is  received  with  an  error  in  it.  The  error  in  the 
code  word  can  cause  a  different  quotient  (and  hence  a 


different  source  word)  to  be  produced  by  the  decoder. 
Fortunately,  the  decoder  can  detect  when  the  code  word  is 
erroneous  by  looking  at  the  remainder  of  the  division 
process.  If  no  error  is  present  when  the  code  word  is 
received,  the  remainder  will  always  be  zero.  If  an  error  is 
present  the  remainder  will  always  be  greater  than  zero.  The 
remainder  of  the  division  process  is  known  as  the  syndrome 
and  is  the  length  of  the  order  of  the  generator  polynomial 
(n-k) .  The  only  time  the  decoder  will  fail  to  detect  an 
error  in  the  received  code  word  is  when  the  errors 
introduced  by  the  communications  channel  into  the 
transmitted  code  word  produce  a  different,  but  correctly 
encoded ,  source  word . 


Calculating  the  Syndrome: 

For  cyclic  codes  (such  as  the  BCH  code) ,  the  syndrome 
is  determined  by: 

S(x)  -  R9«k,[V(x)] 
where : 

S(x)  =  the  code  word 

Rfl(x)  =  the  remainder  after  dividing  by  g(x) 

V(x)  =  the  received  code  word 

Note,  however,  that  the  received  code  word  can  be 
written  as  the  transmitted  code  word  exclusive-ored  to  an 
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error  polynomial  (exclusive-or  denoted  as  a  +  sign) : 

S(x)  =  Rg(x)[e(x)  +  C(x)  ] 

S(x)  =  Rg(x)[e(x)]  +  Rfl(x)[C(x)] 

S(x)  -  Rg(x)[e(x)  ]  +  0 
(1)  S(x)  =  Rg(x)[e(x)  ] 
where : 

e(x)  =  error  polynomial 
C (x)  =  transmitted  code  word 

(Blahut,  1984:99) 

Equation  1  shows  that  all  the  syndromes  for  a  cyclic 
code  can  be  found  by  dividing  all  possible  error  polynomials 
by  the  generator  polynomial.  Each  resulting  quotient  after 
the  division  becomes  the  syndrome  for  the  particular  error 
polynomial . 

For  example,  choosing  the  (15,7)  two  error  correcting 
BCH  code  with  a  generator  polynomial  of  x8  +  x7  +  x6  +  x4  +  x 
+  1  yields  the  following  table  of  syndromes  for  the  given 
error  polynomials: 
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|  Table  4  -  Syndromes  for  a  (15,7)  BCH  Code 

Error  Polynomial 

Syndrome  Polynomial 

0000000000000001 

0000000000000001 

0000000000000010 

0000000000000010 

0000000000000100 

0000000000000100 

0000000000001000 

0000000000001000 

0000000000010000 

0000000000010000 

0000000000100000 

0000000000100000 

0000000001000000 

0000000001000000 

0000000010000000 

0000000010000000 

0000000100000000 

0000000011010001 

0000001000000000 

0000000001110011 

0000010000000000 

0000000011100110 

0000100000000000 

0000000000011101 

0001000000000000 

0000000000111010 

0010000000000000 

0000000001110100 

0000000000000011 

0000000000000011 

0000000000000101 

0000000000000101 

0000000000001001 

0000000000001001 

0000000000010001 

0000000000010001 

0000000000100001 

0000000000100001 

0000000001000001 

0000000001000001 

0000000010000001 

0000000010000001 

0000000100000001 

0000000011010000 

0000001000000001 

0000000001110010 

0000010000000001 

0000000011100111 

0000100000000001 

0000000000011100 

0001000000000001 

0000000000111011 

0010000000000001 

0000000001110101 

0100000000000001 

0000000011101001 

0000000000000110 

0000000000000110 

0000000000001010 

0000000000001010 

0000000000010010 

0000000000010010 

0000000000100010 

0000000000100010 

0000000001000010 

0000000001000010 

0000000010000010 

0000000010000010 

0000000100000010 

0000000011010011 

0000001000000010 

0000000001110001 

0000010000000010 

0000000011100100 

0000100000000010 

0000000000011111 

0001000000000010 

0000000000111000 

0010000000000010 

0000000001110110 

0100000000000010 

0000000011101010 

1  0000000000001100 

0000000000001100 
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Table  4  Continued 
Syndromes  for  a  (15,7)  BCH  Code 


Table  4  Continued 
Syndromes  for  a  (15,7)  BCH  Code 


Error  Polynomial 

Syndrome  Polynomial 

0000000101000000 

0000000010010001 

0000001001000000 

0000000000110011 

0000010001000000 

0000000010100110 

0000100001000000 

0000000001011101 

I  0001000001000000 

0000000001111010 

0010000001000000 

0000000000110100 

0100000001000000 

0000000010101000 

0000000110000000 

0000000001010001 

0000001010000000 

0000000011110011 

0000010010000000 

0000000001100110 

0000100010000000 

0000000010011101 

0001000010000000 

0000000010111010 

0010000010000000 

0000000011110100 

0100000010000000 

0000000001101000 

0000001100000000 

0000000010100010 

0000010100000000 

0000000000110111 

0000100100000000 

0000000011001100 

0001000100000000 

0000000011101011 

0010000100000000 

0000000010100101 

0100000100000000 

0000000000111001 

0000011000000000 

0000000010010101 

0000101000000000 

0000000001101110 

0001001000000000 

0000000001001001 

0010001000000000 

0000000000000111 

0100001000000000 

0000000010011011 

0000110000000000 

0000000011111011 

0001010000000000 

0000000011011100 

0010010000000000 

0000000010010010 

0100010000000000 

0000000000001110 

0001100000000000 

0000000000100111 

0010100000000000 

0000000001101001 

0100100000000000 

0000000011110101 

0011000000000000 

0000000001001110 

i  0101000000000000 

0000000011010010 

I  0110000000000000 

0000000010011100 

< 
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It  should  become  clear,  from  the  exhaustive  example  in 
the  table  above,  that  for  a  known  BCH  code  all  given  error 
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polynomials  have  a  unique  syndrome.  The  BCH  decoder  can 
determine  the  error  pattern  of  the  received  code  word  by 
matching  the  syndrome  of  the  received  code  word  to  the 
syndromes  corresponding  error  polynomial.  Once  the  error 
polynomial  is  known,  the  received  code  word  can  be  corrected 
by  exclusive-oring  the  error  polynomial  to  the  received  code 
word.  The  decoder  will  take  the  corrected  received  code 
word  and  decode  it  to  yield  the  original  source  word  and  a 
syndrome  composed  solely  of  zeros. 

D.  DECODER  CIRCUITRY 

The  BCH  decoder  can  be  easily  implemented  using  simple 
circuits  from  the  family  of  finite  impulse  response  (FIR) 
non-recursive  digital  filters.  For  the  purpose  of  this 
thesis,  an  internal  Xor  circuit  was  choosen  to  ease  the 
implementation  of  the  feedback  gate.  The  internal  Xor 
circuit  requires  one  additional  chip  to  form  the  feedback 
gate  while  the  external  Xor  circuit  requires  enough  chips  to 
form  a  gate  at  each  point  of  feedback  in  the  generator 
polynomial.  An  example  of  an  internal  xor  FIR  circuit, 
using  x8  +  x7  +  x6  +  x4  +  x  +  1  as  the  generator  polynomial 
is  given  in  figure  12. 
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An  example  of  the  decoder  operation  is  given  below. 

For  the  example,  an  ASCII  "a"  is  encoded  to  yield 
100111110110001  (binary)  as  the  input  polynomial.  The 
generator  polynomial  (both  for  encoding  and  decoding)  is 
given  as  x8  +  x7  +  x6  +  x4  +  x  +  1.  The  first  8  bits  of  the 
code  word  are  clocked  into  the  decoder  with  the  feedback 
gate  closed.  The  next  seven  bits  are  also  clocked  in  the 
decoder  with  the  feedback  gate  close,  but  each  resulting  bit 
is  saved  by  the  CPU  to  form  the  decoded  word.  When  the  last 
bit  of  the  result  is  stored  in  the  CPU,  the  syndrome 
(remainder)  of  the  division  is  residing  in  the  registers  of 
the  decoder.  The  syndrome  is  clocked  into  the  CPU  by 
opening  the  feedback  gate,  and  entering  zeros  into  the  input 
of  the  decoder.  A  total  of  8  bits  must  be  clocked  out  of 


the  decoder  to  form  the  complete  syndrome.  Note  that  high 
order  bits  enter  the  decoder  first  and  leave  the  decoder 
first. 


Table  5 

- 

Register  States 

for 

Division 

Input 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

Output 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1  0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

1  1 

0 

0 

1 

0 

0 

0 

0 

0 

0 

1  l 

1 

0 

0 

1 

0 

0 

0 

0 

0 

l 

1 

1 

0 

0 

1 

0 

0 

0 

0 

l 

1 

1 

1 

0 

0 

1 

0 

0 

0 

l 

1 

1 

1 

1 

0 

0 

1 

0 

0 

|  0 

1 

1 

1 

1 

1 

0 

0 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

1 

1 

0 

0 

0 

0 

0 

0 

1 

0 

1 

1 

1 

0 

0 

0 

0 

0 

0 

1 

0 

1 

1 

1 

0 

0 

0 

0 

0 

0 

1 

0 

1 

1 

1 

0 

0 

1 

0 

0 

0 

1 

0 

1 

1 
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1 
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0 

0 

0 

0 

0 

0 

0 

contra! -Circuitry • 

The  BCH  decoder  is  controlled  by  four  signals:  one  to 
clear  the  decoder,  one  to  clock  data  into  the  decoder  with 
the  feedback  gate  closed,  one  to  clock  data  into  the  decoder  ! 

with  the  feedback  gate  opened,  and  one  to  clock  data  out  of 
the  decoder.  Each  control  signal  must  be  isolated  from  all 
other  control  signals  to  the  BCH  decoder.  Isolation  of  the  • 

control  signals  is  accomplished  through  a  74139  Dual  2  to  4 
Decoder.  The  decoder  enable  input  is  tied  to  DS*  linking 

! 
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the  decoder  function  directly  to  the  Z-80  DART  and  isolating 
the  decoder  from  any  S-100  internal  control  functions. 

Pins  A1  and  B1  of  the  decoder  are  tied  to  address  lines 
A14  and  A15 ,  neither  of  which  are  used  by  the  Z-80  DART'S 
address  decoder.  Unlike  the  encoder  control,  the  decoder 
controller  uses  all  state  combinations  of  A14  and  A15  to 
provide  control  over  the  decoder  operations.  Since  the 
74139  control  lines  (YO  through  Y3)  are  asserted  (low)  for 
all  state  combinations  of  A14  and  A15,  the  BCH  decoder  is 
active  when  addresses  0000,  4000,  8000,  and  cOOO  (hex)  are 
asserted.  DART  operations  must  be  disabled  (Tx  disabled) 
because  the  DART  will  misinterpret  OUT  commands  at  the  BCH 
decoder  address  as  an  instruction  to  load  its  transmit 
buffer.  The  DART  will  end  up  loading  its  buffer  with 
erroneous  data  and  transmitting  it  to  the  final  bit  sink. 

The  BCH  decoder  function  is  not  affected  whether  the 
DART  transmitter  is  disabled  or  not.  Data  is  routed  into 
the  decoder  through  D07  of  the  S-100  bus  and  is  not  affected 
by  DART  operations.  Data  is  routed  from  the  BCH  decoder 
into  the  Z-100  through  DIO.  DIO  is  multiplexed  from  both 
the  BCH  decoder  and  Z-80  DART  to  insure  that  input  data  is 
always  taken  from  one  source  at  a  time. 

The  decoder  clock  and  decoder  clear  functions  are 
narrowed  by  combining  pWR*  on  the  S-100  bus  with  the 
appropriate  74139  decoder  output  lines.  The  narrowed 
control  pulses  are  necessary  to  prevent  inadvertent 
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triggering  of  the  74139  output  lines  when  DS*  transitions 
during  changes  A14  and  A15.  After  control  lines  Y1  and  Y2 
(clock  with  gate  closed  and  clock  with  gate  open 
respectively)  are  narrowed,  they  are  combined  through  a  7406 
dual  input  And  gate  resulting  in  a  single  clock  pulse 
transmitted  to  the  BCH  decoder  at  any  given  time. 

Schematics: 

Schematics  of  the  BCH  decoder  and  BCH  decoder 
controller  are  found  in  Figures  13  and  14  respectively. 

Test  Mehodolocrv: 

Testing  of  the  BCH  decoder  is  conducted  in  two  phases. 
The  first  phase  determines  whether  the  BCH  decoder  is 
decoding  a  code  word  to  give  the  correct  source  word.  The 
second  phase  determines  whether  the  BCH  decoder  is 
generating  the  correct  syndrome  of  a  given  generator 
polynomial  and  error  polynomial.  Each  phase  of  testing  is 
describe  in  greater  detail  in  the  paragraphs  below. 

Phase  One:  A  software  routine  is  written  that  prompts 
the  user  for  the  generator  polynomial,  n-k,  and  k.  The 
generator  polynomial  is  entered  by  the  user  as  the  bitwise 
representation  of  an  ASCII  character  -  3 Oh.  For  example, 
the  bitwise  representation  of  the  generator  polynomial  x3  + 

1  is  1001.  This  amounts  to  the  ASCII  character  9  -  3 Oh  (in 
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binary:  01101001  -  01100000) .  The  generator  polynomial 
chosen  by  the  user  must  be  enter  as  its  bitwise  value  on  the 
decoder  dip  switches.  Values  of  n-k  and  k  are  entered  by  the 
user  as  their  actual  numeric  value  (the  software  will 
automatically  convert  to  binary  for  internal  usage) . 

After  the  generator  polynomial,  n-k,  and  k  are  entered, 
the  software  will  prompt  the  user  for  a  source  word  (any 
ASCII  character  will  do  as  long  as  k  *  7) .  The  software 
encodes  the  source  word  internally  using  the  generator 
polynomial  to  yield  the  code  word.  The  code  word  is  sent  to 
the  decoder  for  decoding,  yielding  the  source  word  upon 
completion.  The  original  source  word,  the  binary 
representation  of  the  code  word,  the  binary  representation 
of  the  decoded  code  word,  and  the  final  ASCII  representation 
of  the  quotient  (new  source  word)  are  displayed  for 
comparison.  Both  the  original  and  new  source  word  must  be 
identical  to  indicate  the  proper  operation  of  the  decoder. 
The  software  written  for  phase  one  can  be  found  in  appendix 
F. 

Phase  Two:  A  second  software  routine  is  written  that 
uses  a  BCK  (15,7)  two  error  correcting  code  with  x8  +  x7  + 
x6  +  x*  +  1  as  the  generator  polynomial.  The  software 
generates  all  the  error  polynomials  and  concomitant 
syndromes  for  the  given  BCH  code  and  displays  them  as  a  hard 
copy  on  the  printer. 
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A  third  software  routine  is  written  that  uses  the  same 


BCH  (15,7)  two  error  correcting  code  and  x®  +  x7  +  x6  +  x4  + 

1  as  the  generator  polynomial.  Once  again,  the  software 
generates  all  the  error  polynomials  associated  with  the  BCH 
code.  Then  the  software  sends  each  error  polynomial  to  the 
decoder  for  decoding.  Each  resultant  syndrome  for  the 
decoding  process  is  stored  with  its  concomitant  error 
polynomial.  The  final  list  of  error  polynomials  and 
syndromes  are  sent  to  a  temporary  file  that  can  be  printed 
as  a  hard  copy.  This  final  hard  copy  must  match  the 
original  printed  copy  generated  from  the  second  software 
routine  to  indicate  the  proper  operation  of  the  decoder. 

The  software  written  for  phase  two  can  be  found  in  appendix 
G. 

A  final  demonstration  of  both  the  decoder  and  encoder 
working  as  a  complete  product  is  described  in  chapter  six. 
The  final  demonstration  uses  the  syndrome  created  by  the 
decoder  to  correct  errors  which  ultimately  yields  the 
correctly  decoded  source  word. 

Test  Results: 

The  decoder  worked  well  for  all  generator  polynomials 
chosen  in  Phase  One.  All  syndromes  for  the  (15,7)  two  error 
correcting  BCH  code  generated  by  the  decoder  matched  those 
generated  in  software  during  Phase  Two. 


Conclusions  and  Recommendations: 


The  decoder,  as  implemented,  will  work  well  for  any 
cyclic  code  of  order  23  or  less.  Because  the  Z-100  has  8 
and  16  bit  registers,  it  is  most  convenient  to  use  codes  of 
these  lengths. 
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1  It  is  desirable,  especially  to  those  who 


might  want  to  use  the  encoder  and  decoder  in  a  follow-on 
effort,  to  prove  that  the  final  system  design  works 
properly.  To  this  end,  a  "demonstration"  software  module 
was  written  which  exercises  the  final  system  (comprised  of 
the  encoder  hardware,  decoder  hardware,  and  DART  interfaces) 
in  a  manner  consistent  with  a  realtime  encoding  and  decoding 
problem.  The  problem,  in  essence,  is  to  take  an  ASCII 
character,  encode  it  on  one  computer,  send  the  encoded  word 
to  a  second  computer,  have  the  second  computer  decode  the 
code  word,  display  the  result,  and  send  a  request  for 
another  encoded  word  back  to  the  first  computer,  where  upon 
the  process  starts  over  again.  The  demonstration  is  limited 
to  the  (15,7)  two  error  correcting  BCH  code  that  has  been 
discussed  throughout  this  document. 

System  Configuration:  The  system  is  configured  as 
shown  in  Figure  15.  Only  two  computers  are  needed,  one  for 
the  encoder  and  one  for  the  decoder,  because  the 
communications  channel  is  not  simulated  independently  of  the 
encoder  function  for  the  demonstration. 


The  encoder  host  computer's  AUX  output  is  tied  to  the 
DART  input  of  the  decoder  board.  The  encoded  word  is  sent 
over  this  link.  The  decoder  host  computer's  AUX  output  is 
tied  to  the  DART  input  of  the  encoder  board.  The  request  by 
the  decoder  for  another  encoded  word  is  sent  over  this  link. 
Although  the  system  could  be  configured  from  DART  to  DART 
for  both  links,  the  current  configuration  proves  that  ANY 
computer  with  a  serial  output  set  at  9600  Baud,  no  parity, 
and  one  stop  bit,  can  effectively  communicate  with  the 
encoder  and  decoder  boards.  This  means  that  the  final 
system  configuration  can  use  any  available  PC  computer  as 
the  host  computer  for  the  channel  simulator. 


Figure  15  -  System  Configuration  for  Demonstration 
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Demonstration  Software:  The  demonstration  software 
written  to  exercise  the  encoder  and  decoder  can  best  be 
understood  in  a  step  by  step  approach.  The  encoder  and 
decoder  are  treated  separately  in  the  paragraphs  below: 

Encoder: 

Step  One:  Initialize  the  DART  to  9600  Baud, 
one  stop  bit,  and  no  parity. 

Step  Two:  Prompt  the  user  for  a  source  word. 
The  user  may  enter  any  ASCII  character  on  the  keyboard. 

Step  Three:  Encode  the  character  and  display 
the  code  word  on  the  screen. 

Step  Four:  Prompt  the  use  to  enquire  of  the 
users  desire  to  add  a  error  polynomial.  If  the  answer  is 
yes,  accept  an  error  polynomial  from  the  screen.  If  the 
answer  is  not  jump  to  step  Six. 

Step  Five:  Exclusive  or  the  error  polynomial 
to  the  encoded  word. 

Step  Six:  Transmit  the  final  encoded  word. 
Then  wait  for  a  request  for  another  encoded  word  before 
repeating  the  process. 

Decoder: 

Step  One:  Initialize  the  DART  to  9600  Baud, 
one  stop  bit  and  no  parity. 

Step  Two:  Generate  the  syndromes  for  the 
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(15,7)  BCH  two  error  correcting  code  and  store  the  results 
in  a  look-up  table. 

Step  Three:  Receive  an  encoded  word  from  the 

encoder. 


Step  Four:  Decode  the  encoded  word.  If  no 
syndrome  results,  display  the  transmitted  word,  and  the 
final  result  (then  skip  to  step  seven) . 

Step  Five:  Display  the  resulting  syndrome  on 
the  CRT,  then  use  the  syndrome  and  the  look-up  table  to  find 
the  error  polynomial.  Exclusive-or  the  error  polynomial  to 
the  transmitted  word  to  form  the  corrected  transmitted  word. 

Step  Six:  Decode  the  corrected  transmitted 
word  and  determine  if  there  is  a  syndrome.  If  there  is  a 
syndrome,  display  an  error  message  and  skip  to  step  eight. 

Step  Seven:  Display  the  final  result  on  the 


CRT. 


Step  Eight;  Transmit  a  request  for  another 
encoded  word  to  the  encoder.  Go  to  step  three. 


Follow-On  Thesis  Effort: 

As  discussed  in  the  overview  of  chapter  one,  several 
follow-on  thesis  efforts  are  required  in  order  to  meet  the 
needs  of  the  Foreign  Technology  Division.  As  part  of  the 
follow-on  effort,  and  of  immediate  interest,  is  the 
simulation  of  a  communications  channel  in  software.  The 
simulated  channel  should  minimally  address  random  gauss ian 
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and  Markov  burst  error  noise  patterns.  As  an  aid  in 
understanding  the  level  of  effort  involved  in  developing  the 
simulated  communications  channel,  the  following  list  of 
tasks  to  complete  has  been  compiled. 

&j_  Research  the  selected  communication  channels  and 
associated  noise  (random  gaussian  and  Markov  burst  error)  to 
determine  the  probability  of  bit  error  (and  bit  error 
pattern)  for  each  communications  channel. 

B.  Select  a  computer  and  programming  language  suitable 
for  writing  the  channel  simulation  programs  needed.  (I 
would  recommend  a  Z-248  as  the  computer  and  C  as  the 
programming  language) . 

C.  Write  the  software  routines  that  will  ultimately 
simulate  the  communications  channel. 

D.  Interface  the  selected  computer  and  the  software  to 
simulate  the  communications  channel  with  the  existing 
encoder  and  decoder. 

E.  Write  any  driving  routines  that  are  required  to 
provide  a  completely  functional  system. 

F.  Write  your  thesis,  and  demonstrate  the  final  system 
to  your  thesis  advisory  board. 
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Append iz  A:  74747  D  Flip  Flop  Interface  Software 

*********************************************************** 
STEP  ONE  -  DRIVER  ONE 

Accepts  a  character  from  the  keyboard  and  transmits  it 
out  the  output  port  to  the  input  port.  Receives  the 
character  from  the  input  port  and  displays  the  character  on 
the  screen.  A  visual  check  of  the  screen  will  show  whether 
the  transmission  is  handled  correctly. 

*********************************************************** 
Define  constants 


bell  equ  07h  ;ASCII  char  for  bell 

cr  equ  Odh  ; ASCI I  char  for  ; 

;*********************************************************** 


stack_area 

segment 

stack 

; define  the  stack 

;area 

db 

40  dup ( ? ) 

;set  aside  room  for  stack 

stack_area 

• 

t 

ends 

• 

9 

data_area 

segment 

; define 

data  area 

outco 

db 

OOh 

inco 

db 

OOh 

char 

db 

OOh 

mych 

db 

41h 

data_area 

• 

ends 

9 

• 

9 

• 

LAB_1 

segment 

; define 

segment  area  for  program 

main 

proc 

far 

assume 

cs : LAB_1 , 

ds : data_area , 

ss : stack_area 

9 

;set  all  register  to  zero  (makes 
• 

it  easier  to  debug) 

9 

begin : 

sub 

ax,  ax 

;set  ax  to  zero 

sub 

bx,bx 

;set  bx  to  zero 

sub 

cx,cx 

;set  cx  to  zero 

sub 

dx,dx 

;set  dx  to  zero 

set  DS  reg  to  point  to  the  current  data  area 

mov  ax,data_area  ;point  to  data_area 

mov  ds,ax  ;DS  now  points  to 

;data  area 
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begin  parti  of  lab  -  initialize  data  ready  and  data  request 
lines 


BOV 

dl , Olh 

; output  port  address 

in 

al,dx 

; clear 

data  ready 

BOV 

dl , 03h 

; input  port  address 

in 

al/dx 

; clear 

data  request 

• 

§ 

;load  the  character  to  transmit 

into  bx. 

and  set  data 

request  ;high 
• 

f 

mov 

bl,mych 

/‘character  in  bx 

BOV 

dl, 03h 

; input  port  address 

out 

dx,  al 

;set  data  request 

mov 

out co, 08h 

; clear  data  ready 
;set  out  count  number 

mov 

inco, 08h 

;set  in  count  number 

; begin  output 

Outlp:  mov 

loop 

al , outco 

load  out  count 

cmp 

al,00h 

number 

compare  to  zero 

jz 

Inlp 

jump  to  inloop 

mov 

dl, OOh 

output  port 

in 

al,dx 

check  if  data 

and 

al , 08h 

request 
is  set 

mask  for  third  bit 

cmp 

al,08h 

is  data  request 

jne 

outlp 

high? 

wait  until  data 

mov 

al,bl 

request  goes  high 
load  al  with  bit 

out 

dx,  al 

data  rdy  high 

shr 

bl,  1 

data  req  low 
shift  bl  right  one 

mov 

cl , outco 

bit 

load  out  count 

dec 

cx 

number 
dec  by  one 

mov 

• 

outco, cl 

; replace 

count  number 

f 

; Begin  inloop: 

• 

9 

Inlp:  bov 

dl , 02h 

; input  port 

in 

al,dx 

;get  some  data 

and 

al,05h 

;mask  for  rdy  and 

;data 


Prnt: 


cmp 

al,02h 

;less  than  2? 

jl 

Inlp 

;vait  for  data  ready 

and 

al,01h 

;get  data  bit 

mov 

cl, char 

;put  character  into 
;cx 

mov 

ch,al 

;put  bit  into  cl 

shr 

cx,  1 

; shift  bit  into  char 

mov 

char, cl 

;put  character  back 

or 

cl,al 

; append  data  bit 

mov 

al, inco 

; enough  bits  yet? 

cmp 

al, Olh 

;last  bit? 

je 

Prnt 

;yes,  go  print 

dec 

al 

; decrease  incount  by 
;one 

mov 

inco, al 

; store  the  count 

mov 

dl , 03h 

; input  port 

out 

dx,al 

;set  data  request, 

; clear 
;data  ready 

jmp 

Outlp 

;jump  to  out loop 

3  print 

the  received  character 

mov 

dl ,char 

;dl  has  character 

mov 

ah,02h 

int 

21h 

;A11  do,  so  exit  from  program 


;  Exit3: 
function  4c 
;with  return 

mov 

ax,4c00h 

program 

• 

int 

21h 

P 

main 

endp 

LAB_1 

ends 

end 

main 

;use  DOS 


;to  exit  from 


;end  assy 
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*********************************************************** 

STEP  ONE  -  DRIVER  TWO 

Take  a  single  character  and  transmit  it  out  the  output 
port  to  the  input  port.  Receive  the  character  from  the 
input  port  and  check  the  character  internally  to  determine 
if  the  received  character  matches  the  sent  character. 

Report  the  number  of  characters  sent  and  the  number  of 
errors  detected  to  the  CRT.  Repeat  the  process 
indefinitely.  (Note  that  an  overflow  condition  will  arise 
when  the  number  of  bits  sent  equals  about  25k  bits. 

Running  the  program  four  times  consecutively  amounts  to 
transmitting  over  10M  bits.) 


;*********************************************************** 

9 

;  Define 
• 

constants 

bell 

equ 

07h 

; ASCII  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carriage 
; return 

If 

feed 

• 

9 

equ 

Oah 

; ASCII  char  for  line 

• 

9 

;*********************************************************** 

9 

stack_area 

segment 

stack 

; define  the  stack  area 

db 

40  dup(?) 

;set  aside  room  for 

stack 

stack_area 

• 

9 

ends 

• 

9 

data_area 

segment 

; define  data  area 

msgl 

db 

' and ' , ' $ ' 

msg2 

db 

•cr, •$• 

outco 

db 

OOh 

inco 

db 

ooh 

char 

db 

OOh 

mych 

db 

41h 

good 

dw 

OOOOh 

bad 

dw 

ooooh 

data_area 

ends 

9 

;*********************************************************** 

• 

9 

e 

LAB_1 

segment 

;define  segment  area  for 

program 

main 

proc 

far 

assume 

cs :  LABI , 

ds:data_area, 

ss: stack  area 
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set  all  register  to  zero  (makes  it  easier  to  debug) 


begin: 

sub 

ax,  ax 

;set  ax  to  zero 

sub 

bx,bx 

;set  bx  to  zero 

sub 

cx,  cx 

,*set  cx  to  zero 

• 

sub 

dx,dx 

;set  dx  to  zero 

9 

;set  DS  reg  to  point 
• 

to  the  current 

data  area 

9 

mov 

ax,data_area 

; point  to  data_area 

mov 

ds,ax 

;DS  now  points  to 

data_area 

9 

; begin  parti 

of  lab 

-  initialize  data  ready  and  data  request 

; lines 

9 

mov 

dl, Olh 

; output  port  address 

in 

al,dx 

; clear  data  ready 

mov 

dl , 03h 

; input  port  address 

in 

al,dx 

; clear  data  request 

• 

9 

;load  the  character 

to  transmit  into 

bx,  and  set  data 

request  ;high 
• 

9 

loopl: 

mov 

bl , mych 

character  in  bx 

mov 

dl, 03h 

; input  port  address 

out 

dx,al 

;set  data  request 

,* clear  data  ready 

mov 

outco, 08h 

;set  out  count  number 

mov 

inco, 08h 

;set  in  count  number 

; begin  output 

loop 

Outlp: 

mov 

al, outco 

;load  out  count  number 

cmp 

al, OOh 

; compare  to  zero 

jz 

Inlp 

;jump  to  inloop 

mov 

dl , OOh 

; output  port 

in 

al,dx 

; check  if  data  request 

;is  set 

and 

al , 08h 

;mask  for  third  bit 

cmp 

al, 08h 

;is  data  request  high? 

jne 

outlp 

ywait  until  data  request 

;goes  high 

mov 

al,bl 

;load  al  with  bit 

out 

dx,al 

; transmit  bit,  data 

;  ready 

;goes  high,  data  req. 
;low 
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shr 

bl,  1 

; shift  bl  right  one  bit 

mov 

cl , outco 

;load  out  count  number 

dec 

cx 

;dec  by  one 

• 

mov 

outco, cl 

; replace  count  number 

9 

; Begin  inloop: 

• 

9 

Inlp: 

BOV 

dl,02h 

; input  port 

in 

al,dx 

;get  some  data 

and 

al,05h 

;mask  for  rdy  and  data 

cmp 

al, 02h 

;less  than  2? 

jl 

Inlp 

/wait  for  data  ready 

and 

al, Olh 

;get  data  bit 

BOV 

cl, char 

;put  character  into  cx 

BOV 

ch,al 

;put  bit  into  cl 

shr 

cx,  1 

; shift  bit  into  char 

BOV 

char, cl 

;put  character  back 

or 

cl,al 

; append  data  bit 

BOV 

al, inco 

/enough  bits  yet? 

cmp 

al, Olh 

/last  bit? 

je 

Prnt 

/yes,  go  print 

dec 

al 

/decrease  incount  by  one 

BOV 

inco,al 

/store  the  count 

mov 

dl , 03h 

/input  port 

out 

dx,al 

/set  data  request,  clear 

/data  ready 

• 

jmp 

Outlp 

/jump  to  out loop 

9 

/Time 

• 

to  print  the 

results. 

9 

Prnt: 

mov 

dl , char 

/dl  has  character 

mov 

al ,  mych 

/al  has  sent  character 

cmp 

al,dl 

•compare  characters 

je 

upgd 

/same?  inc  good  count 

mov 

cx,bad 

/different? 

inc 

cx 

/inc  bad  count 

mov 

bad , cx 

/store  bad  count 

jmp 

Pt 

/print  results 

upgd: 

mov 

cx , good 

/get  the  current  good 

/ count 

inc 

cx 

/increment  the  good 

/  count 

mov 

good , cx 

/store  the  good  count 

pt: 

mov 

bx , good 

/place  the  good  count  in 

;bx 

call 

binidec 

/call  to  convert  to 

; decimal 

mov 

dx, offset  msgl  ; insert  and  in 

/ output 

mov 

ah, 09h 

/DOS  call  to  print 
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string 


int 

21h 

mov 

bx,bad 

; place  bad  count  into  bx 

call 

binidec 

; convert  bx  to  binary 

mov 

dx, offset  msg2  ; output  a 

; carriage  return 

mov 

ah, 09h 

int 

21h 

jmp 

loopl 

; repeat  the  process 

;********************************************************* 
;Binidec  program  number  in  bx 

;********************************************************** 


binidec 


dec  div 


dec_div 

binidec 


proc 

near 

push 

bx 

push 

cx 

mov 

cx, lOOOOd 

call 

dec_div 

mov 

cx, lOOOd 

call 

dec_div 

mov 

cx, lOOd 

call 

dec_div 

mov 

cx, lOd 

call 

dec_div 

mov 

cx.  Id 

call 

dec_div 

pop 

cx 

pop 

dx 

ret 

proc 

near 

mov 

ax,bx 

cwd 

div 

cx 

mov 

bx,dx 

mov 

dl,al 

add 

dl , 30h 

mov 

ah, 02h 

int 

21h 

ret 

endp 

endp 

,*  display  character 


;A11  do,  so  exit  from  program 


exit3 : 


mov  ax,4c00h 

int  21h 


;use  DOS  function  4c 
;to  exit  from  program 
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main 
LAB  1 


endp 

ends 

end  main  ;end  assy 
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*********************************************************** 

STEP  TWO  -  FIRST  Z-100 

Accept  a  character  from  the  keyboard,  echo  it  to  the 
screen,  and  transmit  the  character  out  the  output  port  to 
the  second  Z-100.  Watch  the  input  port  to  see  if  the  data 
ready  line  goes  high.  When  the  data  ready  line  goes  high, 
receive  the  character  from  the  input  port  and  echo  the 
character  to  the  screen.  It  should  be  the  same  character 
as  the  one  initially  sent.  Repeat  this  process 
indefinitely. 

*********************************************************** 


Define  constants 


• 

bell 

equ 

07h 

; ASCI I 

char 

for 

bell 

cr 

return 

equ 

Odh 

; ASCI I 

char 

for 

carriage 

If 

feed 

• 

equ 

Oah 

; ASCI I 

char 

for 

line 

*********************************************************** 


stackarea 

segment 

stack 

;define  the  stack  area 

db 

40  dup(?) 

;set  aside  room  for 

stack 

stack_area 

• 

9 

ends 

• 

9 

data_area 

segment 

;define  data  area 

outco 

db 

OOh 

inco 

db 

OOh 

char 

db 

OOh 

mych 

db 

41h 

data_area 

ends 

9 

;********************************************************* 

• 

9 

• 

LAB_1 

segment 

; define  segment  area 

main 

proc 

far 

assume 

cs : LAB_1 , 

ds:data_area. 

ss: stack_area 

9 

;set  all  register  to 
* 

zero  (makes 

it  easier  to  debug) 

9 

begin: 

sub 

ax,  ax 

;set  ax  to  zero 

sub 

bx,bx 

;set  bx  to  zero 

sub 

cx,cx 

;set  cx  to  zero 

sub 

dx,dx 

;set  dx  to  zero 
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set  DS  reg  to  point  to  the  current  data  area 


mov 

ax,data_ 

area  ;point  to  datawares 

BOV 

ds,ax 

;DS  now  points  to 

data_area 

9 

} begin  parti 
lines 

of  lab 

-  initialize 

data  ready  and  data  request 

m 

9 

BOV 

dl,01h 

; output  port  address 

in 

al,dx 

; clear  data  ready 

BOV 

dl , 03h 

; input  port  address 

in 

al,dx 

; clear  data  request 

• 

/ 

;load  the  character 

to  transait 

into  bx,  and  set  data 

reguest  high 
• 

# 

loopl: 

BOV 

ah, Olh 

;read  char  and  echo 

int 

21h 

;DOS  call 

BOV 

bl ,  al 

; character  in  bx 

BOV 

outco,08h  ;set  out  count  number 

; begin  output 

loop 

Outlp: 

BOV 

dl , OOh 

; output  port 

in 

al,dx 

; check  if  data  request 
;is  set 

and 

al , 08h 

;mask  for  third  bit 

crop 

al,08h 

;is  data  request  high? 

jne 

outlp 

;vait  until  data  request 
;goes  high 

mov 

al,bl 

;load  al  with  bit 

out 

dx,al 

;transBit  bit,  data  RDY 
;goes  high,  data  req. 

;low 

shr 

bl,  1 

; shift  bl  right  one  bit 

BOV 

cl , outco 

;load  out  count  number 

dec 

cx 

;dec  by  one 

BOV 

outco, cl 

; replace  count  number 

crop 

cl, OOh 

;all  done? 

jne 

outlp 

;no,  transmit  next  bit 

BOV 

inco,08h 

initialize  incount  to  8 

jap 

inlp 

;go  get  a  character 

; Begin  inloop 

• 

• 

Inlp: 

BOV 

dl , 03h 

;set  data  request 

out 

dx,al 

;and  clear  data  ready 
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Wt: 

BOV 

dl,02h 

; input  port 

in 

al,dx 

;get  some  data 

and 

al,05h 

;aask  for  rdy  and  data 

cmp 

al, 02h 

;less  than  2? 

jl 

Wt 

;vait  for  data  ready 

and 

al,01h 

;get  data  bit 

BOV 

cl, char 

;put  character  into  cx 

BOV 

ch,al 

;put  bit  into  cl 

shr 

cx,  1 

; shift  bit  into  char 

BOV 

char , cl 

;put  character  back 

BOV 

al, inco 

; enough  bits  yet? 

CBp 

al,01h 

;last  bit? 

je 

Prnt 

;yes,  go  print 

dec 

al 

; decrease  incount  by  one 

BOV 

inco,al 

; store  the  count 

• 

jmp 

Inlp 

;jump  to  inloop 

f 

;Time  to 
• 

print  the 

received  character 

Prnt: 

BOV 

dl , char 

;dl  has  character 

BOV 

ah , 02h 

int 

21h 

BOV 

outco, 08h 

initialize  outcount 

jap 

loopl 

;get  another  character 

;A11  do, 

• 

so  exit  froB  program 

9 

exit3 : 

BOV 

ax,4c00h 

;use  DOS  function  4c 

• 

int 

21h 

?to  exit  from  program 

9 

main 

endp 

LAB_1 

ends 

end 

aain 

;end  assy 

I 


I 
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*********************************************************** 
STEP  2  -  SECOND  Z-100 

Receive  a  character  from  the  input  port,  echo  it  to 
the  screen  and  output  this  character  to  the  output  port. 
Repeat  the  process  indefinitely. 

*********************************************************** 


;  Define 

constants 

bell 

equ 

07h 

;ASCII  char 

for  bell 

cr 

equ 

Odh 

; ASCI I  char 
i return 

for  carriage 

If 

feed 

• 

equ 

Oah 

; ASCI I  char 

for  line 

*********************************************************** 


f 

stack_area 

segment 

stack 

; define  the  stack  area 

db 

40  dup(?) 

;set  aside  room  for 

stack 

stack_area 

• 

r 

ends 

9 

data_area 

segment 

; define  data  area 

outco 

db 

OOh 

inco 

db 

OOh 

char 

db 

OOh 

mych 

db 

41h 

data_area 

• 

ends 

9 

;*********************************************************** 

• 

9 

• 

LAB_1 

segment 

; define  segment  area 

main 

proc 

far 

assume 

cs : LAB_1 , 

ds 

: data_area , 

ss : stack_area 

f 

;set  all  register  to  zero  (makes 
• 

it 

easier  to  debug) 

9 

begin: 

sub 

ax,  ax 

;set  ax  to  zero 

sub 

bx,bx 

;set  bx  to  zero 

sub 

cx,cx 

;set  cx  to  zero 

sub 

dx,dx 

;set  dx  to  zero 

9 

;set  DS  reg 
• 

to  point  to 

the  current 

data  area 

9 

mov 

ax, data  area 

; point  to  data_area 

BOV 

ds,ax 

;DS  now  points  to 

data  area 
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>•  iAw.  a-*-*- 


begin  parti  of  lab  -  initialize  data  ready  and  data  request 
lines 


BOV 

dl,01h 

; output  port  address 

in 

al ,  dx 

; clear  data  ready 

BOV 

dl , 03h 

; input  port  address 

in 

al,dx 

; clear  data  request 

• 

9 

;load  the  character 

to  transmit 

into  bx,  and  set  data 

request 

• 

;high 

9 

BOV 

inco, 08h 

;set  out  count  number 

jap 

inlp 

; go  get  a  character 

; begin 

output  loop 

Outlp : 

BOV 

dl, OOh 

; output  port 

in 

al,dx 

; check  if  data  request 

;is  set 

and 

al,08h 

{mask  for  third  bit 

cmp 

al,08h 

;is  data  request  high? 

jne 

outlp 

;wait  until  data  request 

;goes  high 

BOV 

al,bl 

;load  al  with  bit 

out 

dx,  al 

/transmit  bit,  data 

• 

9 

ready  high,  data  req 

/low 

shr 

bl,  1 

; shift  bl  right  one  bit 

BOV 

cl , outco 

;load  out  count  number 

dec 

cx 

;dec  by  one 

BOV 

outco, cl 

/replace  count  number 

cmp 

cl,00h 

;all  done? 

jne 

outlp 

;no,  transmit  next  bit 

BOV 

inco, 08h 

/initialize  incount  to  8 

jmp 

inlp 

/go  get  a  character 

; Begin 

inloop: 

Inlp: 

BOV 

dl,03h 

/set  data  request 

out 

dx,al 

/and  clear  data  ready 

Wt: 

BOV 

dl , 02h 

/input  port 

in 

al,dx 

/get  some  data 

and 

al,05h 

/mask  for  rdy  and  data 

cmp 

al , 02h 

/less  than  2? 

jl 

Wt 

/wait  for  data  ready 

and 

al,01h 

/get  data  bit 

BOV 

cl, char 

/put  character  into  cx 
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BOV 

ch,al 

;put  bit  into  cl 

shr 

cx,l 

; shift  bit  into  char 

mov 

char, cl 

;put  character  back 

BOV 

al , inco 

; enough  bits  yet? 

cap 

al, Olh 

;last  bit? 

je 

Prnt 

; yes,  go  print 
; decrease  incount  by 

dec 

al 

BOV 

inco,al 

; store  the  count 

• 

jmp 

Inlp 

;jump  to  inlp 

;Time  to 
• 

print  the 

received  character 

Prnt: 

BOV 

dl , char 

;dl  has  character 

mov 

ah,02h 

int 

21h 

mov 

outco, 08h 

; initialize  outcount 

mov 

bl,char 

jmp 

outlp 

;A11  do, 

• 

so  exit  from  program 

exit3: 

mov 

ax,4c00h 

;use  DOS  function  4c 

• 

int 

21h 

;to  exit  from  program 

main 

endp 

LABI 

ends 

end 

main 

;end  assy 
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*********************************************************** 
PROTOCOL  2 

Protocol  2  is  performs  the  sane  function  as  STEP  2-1  - 
FIRST  Z-100.  That  is,  it  transmits  a  character  to  another 
Z-100  and  receives  that  character  back.  Both  the 
transmitted  character  and  the  received  character  are 
displayed  on  the  screen  so  that  they  can  be  compared. 
Protocol  2  adds  protocol  in  the  form  of  software  checks  to 
insure  that  the  transmission  occurs  without  error.  The 
original  transmitted  character  is  outputted  twice  to  insure 
that  the  data  ready  line  is  clocked  high.  After  eight  bits 
have  been  transmitted  (one  character) ,  Protocol  two  will 
check  to  see  if  all  eight  bits  have  been  received  by  the 
second  Z-100.  Protocol  2  does  this  by  waiting  a  specified 
time, then  sampling  the  data  request  line.  If  the  data 
request  line  is  high  all  eight  bits  of  the  word  were  not 
received.  Protocol  two  then  prints  the  message  "Trapout" 
indicating  that  it  is  about  to  repeat  the  original 
transmission.  Protocol  two  will  again  wait  a  specified 
time  giving  the  second  Z-100  sufficient  time  to  reset 
itself  for  a  new  character,  then  the  character  is 
retransmitted . 

When  Protocol  two  is  in  the  receive  mode,  it  checks 
the  data  ready  line  twice  to  insure  that  the  data  is  stable 
on  the  data  line.  Protocol  two  will  count  the  number  of 
bits  it  receives,  and  if  sufficient  bits  are  not  received 
in  the  given  amount  of  time  it  prints  the  message  "Trapin" 
indicating  that  it  is  going  to  start  the  process  of 
receiving  a  character  over  ; again. 

*********************************************************** 


r 

;  Define 

constants 

bell 

equ 

07h 

/ASCII  char  for  bell 

cr 

equ 

Odh 

/ASCII  char  for  CR 

If 

equ 

Oah 

/ASCII  char  for  line 

feed 

• 

9 

• 

9 

;********************************************************* 

# 

stack_area 

segment 

stack 

/define  the  stack  area 

db 

40  dup(?) 

/ set  aside  room  for 

stack  area 


ends 


; stack 


data  area 


segment 


;define  data  area 
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msgl 

db 

1 Trapout ' , '  $ 

• 

msg2 

db 

•Trapin' ,  '$' 

nsg3 

db 

bell,cr, If , If 

db 

'I/O  at  port 

02h! • ,cr,lf,lf , •$' 

outco 

db 

OOh 

inco 

db 

OOh 

char 

db 

OOh 

mych 

db 

41h 

data_area 

• 

ends 

f 

************************************************************ 

• 

9 

• 

LAB_1 

segment 

; define  segment  area 

main 

proc 

far 

assume 

cs : LAB  l ,  ds 

: data_area , 

ss 

• 

:  stack_area 

9 

;set  all  register  to 
• 

zero  (makes  it 

easier  to  debug) 

9 

begin: 

sub 

ax,  ax 

;set  ax  to  zero 

sub 

bx,bx 

;set  bx  to  zero 

sub 

cx,cx 

;set  cx  to  zero 

• 

sub 

dx,dx 

;set  dx  to  zero 

9 

;set  DS  reg  to  point 
• 

to  the  current 

data  area 

9 

mov 

ax, datawares 

; point  to  data_area 

mov 

ds ,  ax 

;DS  now  points  to 

data_area 

9 

; begin  parti 

of  lab  - 

initialize  data  ready  and  data  request 

; lines 

9 

mov 

dl , Olh 

; output  port  address 

in 

al,dx 

; clear  data  ready 

mov 

dl,03h 

; input  port  address 

in 

al,dx 

; clear  data  request 

• 

9 

;load  the  character  to  transmit  into 

bx,  and  set  data 

request  ;high 
• 

9 

loopl : 

mov 

al,5lh 

,*load  al  with  the  char 

mov 

bl,al 

character  in  bx 

mov 

outco, 08h 

;set  out  count  number 

; begin  output 

loop 

Outlp: 

mov 

dl,00h 

; output  port 

in 

al,dx 

; check  if  data  request 

93 


and 

al,08h 

;is  high 

;mask  for  third  bit 

cmp 

al,08h 

;is  data  request  high? 

jne 

outlp 

;vait  until  data  request 

in 

al,dx 

;goes  high 
; check  data  request 

and 

al,08h 

;mask  for  third  bit 

cmp 

al, 08h 

;is  data  request  high? 

jne 

02 

?if  not,  wait  until  it 

mov 

al,bl 

;does  go  high 
;put  bit  into  al 

out 

dx,al 

,* transmit  bit,  data 

shr 

bl,  1 

; ready  high,  data  req 
;low 

; shift  bl  right  one  bit 

mov 

cl , outco 

;load  out  count  number 

dec 

cx 

;dec  by  one 

mov 

outco, cl 

; replace  count  number 

cmp 

cl , ooh 

;all  done? 

jne 

outlp 

; no,  transmit  next  bit 

mov 

inco,08h 

; initialize  incount  to  8 

;was  the  data  received?  Is  data  request  still  high? 
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mov 

cx,0020h 

;wait  about  twenty 

Wait2: 

loop 

Wait2 

; operations 

mov 

dl , OOh 

; output  port 

in 

al,dx 

;get  data  request  bit 

and 

al, 08h 

,*mask  for  data  request 

cmp 

al,08h 

;is  it  high 

jne 

inlp2 

;no?  we're  OK,  go  on  to 
; receive  the  char 

mov 

dx, offset  msgl 

;data  request  is  still 
;high 

mov 

ah,09h 

;so  output  "trapout" 

int 

21h 

mov 

cx, lOOOh 

;wait  for  the  other 

;Z- 

100 

Waitl: 

loop 

Waitl 

;to  reset  itself 

• 

jmp 

loopl 

;go  retransmit  the  char 

9 

; Begin 

inloop: 

I 


J 


Inlp: 

mov 

dl,03h 

;set  data  request 

out 

dx,  al 

;and  clear  data  ready 

out 

dx,al 

;again,  just  to  be  sure 

P: 

mov 

cx, OOOOh 

, clear  cx  (the  timer) 
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Wt: 

BOV 

dl,02h 

; input  port 

in 

al,dx 

;get  soae  data 

and 

al , 05h 

;aask  for  rdy  and  data 

inc 

cx 

;increaent  cx 

cap 

cx, lOOh 

;is  time  up? 

je 

Prob 

;yes,  jump  to  Prob(lem) 

cmp 

al, 02h 

;less  than  2? 

jl 

Wt 

;vait  for  data  ready 

Wt2: 

BOV 

dl, 02h 

; check  for  data  ready 
; again 

in 

al,dx 

;get  some  data 

and 

al, 05h 

;aask  for  rdy  and  data 

inc 

cx 

; increment  the  timer 

cmp 

cx, lOOh 

;time  up  yet? 

je 

Prob 

;yes,  jump  to  Prob(lem) 

cmp 

al,02h 

;less  than  2? 

jl 

Wt2 

?wait  for  data  rdy 

and 

al , Olh 

;get  data  bit 

BOV 

cl , char 

;put  character  into  cx 

BOV 

ch,al 

;put  bit  into  cl 

shr 

cx,  1 

? shift  bit  into  char 

nov 

char, cl 

;put  character  back 

BOV 

al , inco 

; enough  bits  yet? 

cmp 

al , Olh 

;last  bit? 

je 

Prnt 

;yes,  go  print 

dec 

al 

; decrease  incount  by  one 

BOV 

inco, al 

; store  the  count 

jmp 

Inlp 

;jump  to  inloop 

Prob: 

BOV 

inco, 08h 

reinitialize  inco 

BOV 

dx, offset  msg2  , ’print  "trapin" 

BOV 

int 

ah, 09h 
21h 

; using  DOS  call  09h 

BOV 

CX, 0200h 

;now  wait  a  little  bit 

Wait4 : 

loop 

Wait4 

;to  make  sure  the  other 

jmp 

P 

;Z-100  has  reinitialized 

i 
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;Time 

• 

to  print  the 

received  character 

t 

Prnt: 

BOV 

dl,char  ;dl  has  character 

BOV 

ah, 02h 

int 

21h 
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mov 

outco , 08h 

initialize  outcount 

jap 

loopl 

;A11  do, 

• 

so  exit  from 

program 

exit3: 

mov 

ax,4c00h 

;use  DOS  function  4c 

• 

int 

21h 

;to  exit  from  program 

i 

main 

endp 

LAB_1 

ends 

end 

main 

;end  assy 
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*********************************************************** 

PROTOCOL  3. ASM 

Protocol  3  is  virtually  identical  to  protocol  two  but 
is  meant  to  run  on  the  "other  Z-100".  Protocol  3  performs 
the  same  function  as  STEP2-2 .ASK.  That  is,  it  receives  a 
transmitter  character,  echoes  it  to  the  screen,  and 
transmits  the  character  back  to  the  first  Z-100.  Protocol 
3  starts  its  program  in  the  receive  mode.  Therefore,  there 
is  an  initial  jump  to  the  Input  loop  (Inlp)  early  in  the 
program  sequence. 

*********************************************************** 


Define  constants 


• 

bell 

equ 

07h 

;ASCII  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carriage 

; return 

If 

equ 

Oah 

; ASCI I  char  for  line 

feed 

• 

f 

• 

# 

*********************************************************** 


stack_area 

segment 

stack  ; define  the  stack  area 

stack 

db 

40  dup(?)  ;set  aside  room  for 

stack_area 

* 

ends 

t 

data_area 

segment 

; define  data  area 

msgl 

db 

'Trapin! ' ,cr, If , *  $ • 

msg2 

db 

'Trapout* ,cr,lf,  '$' 

msg3 

db 

bell,cr,lf,lf 

db 

'I/O  at  port  02h! ' ,cr,lf ,lf , '$' 

outco 

db 

OOh 

inco 

db 

OOh 

char 

db 

OOh 

mych 

db 

41h 

data_area 

ends 

*********************************************************** 


r 

• 

LAB_1 

segment 

; define  segment  area 

main 

proc 

far 

assume 

cs:LAB_l,  ds:data_area. 

ss : stack_area 

9 

;set  all  register  to  zero  (makes  it  easier  to  debug) 

9 

begin:  sub  ax, ax  ;set  ax  to  zero 
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sub 

bx,bx 

;set  bx  to  zero 

sub 

cx,  cx 

;set  cx  to  zero 

sub 

• 

dx,dx 

;set  dx  to  zero 

9 

;set  DS  reg  to  point 

to  the  current  data  area 

i 

mov 

ax/data_ 

area  ; point  to  data_area 

BOV 

ds,ax 

;DS  now  points  to 

. 

fdataarea 

/ 

;begin  parti  of  lab 

-  initialize 

data  ready  and  data  request 

; lines 

, 

mov 

dl/Olh 

; output  port  address 

in 

al  ,dx 

; clear  data  ready 

mov 

dl , 03h 

? input  port  address 

in 

al/dx 

; clear  data  request 

• 

f 

;load  the  character 

to  transmit 

into  bx,  and  set  data 

;request  high 
• 

' 

mov 

inco, 08h 

;set  out  count  number 

jmp 

inlp 

?go  get  a  character 

; begin  output  loop 
• 

* 

Outlp:  mov 

dl/00h 

; output  port 

in 

al,dx 

; check  if  data  request 

;is  high 

and 

al , 08h 

;mask  for  third  bit 

cmp 

al,08h 

;is  data  request  high? 

jne 

outlp 

fwait  until  data  request 

fgoes  high 

02 :  in 

al,dx 

; check  data  request 

• 

9 

again 

and 

al, 08h 

;mask  for  third  bit 

cmp 

al, 08h 

;is  data  request  high? 

jne 

02 

;if  not,  wait  until  it 

;does  go  high 

mov 

al,bl 

;put  bit  into  al 

out 

dx,al 

; transmit  bit,  data 

• 

f 

ready  high, data  req 

;low 

shr 

bl,  l 

; shift  bl  right  one  bit 

mov 

cl , outco 

fload  out  count  number 

dec 

cx 

;dec  by  one 

mov 

outco, cl 

.’replace  count  number 

cmp 

cl, OOh 

;all  done? 

jne 

outlp 

;no,  transmit  next  bit 

mov 

inco, 08h 

f initialize  incount  to  8 
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?vas  the  data  received?  Is  data  request  still  high? 


mov 

CX ,  002 oh 

.wait  about  twenty 

Wait2: 

loop 

Wait2 

operations 

mov 

dl,00h 

output  pert 

in 

al,dx 

;get  data  request  bit 

and 

al,08h 

rmask  for  data  request 

cmp 

al, 08h 

:is  it  high 

jne 

inlp2 

»*no?  we’re  OK,  go  on  to 
.‘receive  the  char 

mov 

dx, offset  msgl 

;data  request  is  still 
;high 

mov 

int 

ah, 09h 

21h 

?so  output  "trapout" 

mov 

ex, 1000h 
;z- 

;wait  for  the  other 
■100 

Waitl: 

loop 

Waitl 

;to  reset  itself 

• 

r 

; Begin 

• 

f 

jmp 

inloop: 

loopl 

,*go  retransmit  the  char 

Inlp: 

mov 

dl,03h 

yset  data  request 

out 

dx,al 

;and  clear  data  ready 

out 

dx,al 

; again,  just  to  be  sure 

P: 

mov 

ex, OOOOh 

.’clear  cx  (the  timer) 

Wt: 

mov 

dl,02h 

; input  port 

in 

al,dx 

;get  some  data 

and 

al, 05h 

;mask  for  rdy  and  data 

inc 

cx 

,*  increment  cx 

cmp 

cx, lOOh 

;is  time  up? 

je 

Prob 

;yes,  jump  to  Prob(lem) 

cmp 

al , 02h 

,’less  than  2? 

jl 

Wt 

;wait  for  data  ready 

Wt2 : 

mov 

dl,02h 

• 

9 

Oheck  for  data  ready 
again 

in 

al,dx 

;get  some  data 

and 

al, 05h 

;mask  for  rdy  and  data 

inc 

cx 

increment  the  timer 

cmp 

cx, lOOh 

;time  up  yet? 

j® 

Prob 

;yes,  jump  to  Prob(lem) 

cmp 

al,02h 

;less  than  2? 

smiT*£  J&L  A; 


! 


jl 

Wt2 

;vait  for  data  rdy 

and 

al,01h 

;get  data  bit 

mov 

cl , char 

;put  character  into  cx 

BOV 

ch,al 

;put  bit  into  cl 

shr 

cx,  1 

; shift  bit  into  char 

BOV 

char, cl 

;put  character  back 

BOV 

al, inco 

.‘enough  bits  yet? 

cmp 

al,0lh 

flast  bit? 

je 

Prnt 

;yes,  go  print 

dec 

al 

; decrease  incount  by  one 

BOV 

inco,al 

; store  the  count 

jmp 

Inlp 

;jump  to  inloop 

Prob: 

BOV 

inco,08h 

reinitialize  inco 

mov 

dx, offset 

msg2  ; print  "trap in" 

mov 

ah, 09h 

;using  DOS  call  09h 

int 

21h 

mov 

cx, 0200h 

;nov  wait  a  little  bit 

Wait4: 

loop 

Wait  4 

;to  make  sure  the  other 

jmp 

P 

fZ-100  has  reinitialized 

;Time  to 
« 

print  the 

received  character 

9 

Prnt: 

mov 

dl , char 

fdl  has  character 

mov 

ah,02h 

int 

21h 

mov 

outco, 08h 

; initialize  outcount 

jmp 

loopl 

;A11  do, 

• 

so  exit  from  program 

r 

exit3 : 

mov 

ax,4c00h 

;use  DOS  function  4c 

• 

int 

21h 

fto  exit  from  program 

9 

main 

endp 

LAB_l 

ends 

end 

main 

fend  assy 
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Appendix  C  -  DART  Software 

*********************************************************** 

DART_DRIVER_ONE 

DART- DRI VER_ONE  is  used  in  conjunction  with  DART- 
DRIVER_TWO  to  test  the  performance  of  the  DART  (serial 
I/O  port)  on  the  BCH  encoder.  DART_DRIVER_ONE  sends  a 
character  to  the  DART  through  the  modem  (J2)  serial  I/O 
port.  32  is  configured  to  9600  baud,  one  stop  bit,  no 
parity,  and  xl6  clock.  After  the  character  has  been  sent, 
DART_DRIVER_ONE  receives  the  character  back  through  the 
same  port  (32) .  The  character  received  is  compared  to  the 
character  sent.  After  a  block  of  1000  characters  are  sent, 
the  results  are  tabulated  and  the  number  of  blocks 
transmitted  along  with  the  number  of  errors  found  are 
displayed  on  the  CRT. 

*********************************************************** 


Define  constants 


bell 

equ 

07h 

;ASCII  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carr 

; return 

If 

equ 

Oah 

,* ASCII  char  for  line  feed 

portl 

equ 

OOh 

; output  port,  data 

port2 

equ 

Olh 

; output  port,  control 

char 

equ 

41h 

; ASCI I  char  for  "AM 

************************************************************ 


F 


stack_area 

segment 

stack 

; define  the  stack  area 

db 

40  dup(?) 

;set  aside  room  for 

stack 

stack_area 

• 

F 

ends 

• 

F 

data_area 

segment 

;define  data  area 

count 

dw 

OOOOh 

;to  count  words  tx 

bad 

dw 

OOOOh 

;to  count  errors 

msgl 

db 

•and', •$» 

msg2 

db 

cr, '$• 

data  area 

ends 

*********************************************************** 


a 


I 


a 
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LAB_1 

main 


segment  ; define  segment  area 

proc  far 

assume  cs:LAB_l,  ds : data_area , 


ss:stack_area 
set  all  register  to  zero  (makes  it  easier  to  debug) 
begin: 


sub 

ax,  ax 

;set 

ax 

to 

zero 

sub 

bx,bx 

;set 

bx 

to 

zero 

sub 

cx,cx 

;set 

cx 

to 

zero 

sub 

dx,dx 

;set 

dx 

to 

zero 

to  point 

to  the  current  data 

area 

mov 

mov 


data  area 


ax,data_area 

ds,ax 


; point  to  data_area 
;DS  points  to 


; Start  the  program  here: 

Loopl:  mov  bx,0000d  ;bx  will  count  the  char 

;tx 

f 

;  Output  the  received  data  from  the  Z-100  using  DOS  call 
;  04h 


Loop 2 : 


Receive 
using  DOS 


mov 

mov 

int 


dl,char  ; character  loaded  into  dl 

ah,04h  ;DOS  call  04h  outputs 

21h  ;the  char  through  AUX 

;(J2) 


the  charcter  back  through  the  same  port  (J2) , 
call  03h. 


mov  ah,03h  ,* DOS  call  to  receive 

int  21h  ;a  charcter  through  J2 

t character  is  in  al 


Compare  the  received  character  to  the  transmitted 
charcter  and  tabulate  the  results. 


cmp 

al , char 

;is  character  the  same? 

jne 

I  bad 

;no  increment  error  count 

inc 

bx 

;inc  number  of  char  sent 

cmp 

bx, lOOOd 

;1000  words  sent? 

je 

Prnt 

;yes,  output  results 

jmp 

Loop2 

;tx  next  character 

102 


Ibad 


• 

9 

Ibad:  mov 

cx,bad 

;get  current  error  count 

inc 

cx 

increment  by  one 

mov 

bad,cx 

; replace  error  count 

jmp 

• 

9 

Ivord 

,*go  back  to  main  routine 

• 

f 

;Time  to  print  the  results. 

• 

9 

Prnt :  mov 

bx, count 

;bx  contains  the  number 

inc 

bx 

;of  words  x  1000 

mov 

count , bx 

; store  count 

call 

binidec 

; convert  to  decimal  and 
; print  the  results 

mov 

dx, offset  msgl 

; insert  and  in  output 

mov 

ah, 09h 

;D0S  call  to  print  string 

int 

21h 

mov 

bx,bad 

; place  bad  count  into  bx 

call 

binidec 

; convert  bx  to  binary 

mov 

dx, offset  msg2 

; output  a  carriage  return 

mov 

ah,09h 

int 

21h 

9 

;  See  if  over 

10M  bits  have  been 

transmitted .  Stop  the 

; program  when  this  happens. 

• 

i 

mov 

cx , count 

; number  of  words  tx  in  cx 

cmp 

cx, 1300d 

?1300  x  1000  x  Sbits  * 
;10.4  M  bits 

je 

exitl 

;if  equal,  all  done 

jmp 

loopl 

; repeat  the  process 

;********* ***************************** ******************* 
;Binidec  program  number  in  bx 

•r  ********************************************************** 


proc 

near 

push 

bx 

push 

cx 

mov 

cx,10000d 

call 

dec_div 

mov 

cx, lOOOd 

call 

dec_div 

mov 

cx, lOOd 

call 

dec_div 

mov 

cx, lOd 
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a 

i 

i 

i 

i 

■ 

a 

a 

■ 

i 


call 

dec_div 

mov 

cx,  Id 

call 

dec_div 

pop 

cx 

pop 

dx 

ret 

dec_div 

proc 

near 

mov 

ax,bx 

cvd 

div 

cx 

mov 

bx,dx 

mov 

dl,al 

add 

dl , 30h 

mov 

ah, 02h 

;display  character 

int 

21h 

ret 

dec_div 

endp 

binidec 

endp 

;A11  do, 

• 

so  exit  from 

program 

exitl: 

mov 

ax, 4c00h 

;use  DOS  function  4c 

• 

int 

21h 

;to  exit  from  program 

1 

main 

endp 

LAB_1 

ends 

end 

main 

;end  assy 

*********************************************************** 

DART_DRIVER_TWO 

DART_DRIVER_TWO  provides  the  test  routines  to 
determine  if  the  DART  is  receiving  a  character  correctly 
from  another  Z-100.  Once  the  character  is  received,  the 
DART  outputs  the  character  back  to  the  Z-100. 

*********************************************************** 


Define  constants 


bell 

equ 

07h 

; ASCII  char  for  bell 

cr 

return 

equ 

Odh 

;ASCII  char  for  carriage 

If 

equ 

Oah 

; ASCII  char  for  line  feed 

portl 

equ 

OOh 

; output  port,  data 

port2 

• 

9 

equ 

Olh 

; output  port,  control 
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*********************************************************** 


stack_area 

stack 

stack_area 

• 

t 

segment 

db 

ends 

stack  ; define  the  stack  area 

40  dup(?)  ;set  aside  room  for 

• 

t 

data_area 

segment 

; define  data  area 

data_area 

• 

ends 

9 

;*********************************************************** 

• 

9 

• 

LAB_1 

program  main 

segment 

asstime 

; define  segment  area  for 
proc  far 

cs:LAB  1,  dstdata  area. 

ss: stack  area 


9 

;set  all 
• 

register  to 

zero  (makes 

it  easier  to  debug) 

9 

begin: 

sub 

ax,  ax 

;set  ax  to 

zero 

sub 

bx,bx 

;set  bx  to 

zero 

sub 

cx,cx 

;set  cx  to 

zero 

sub 

dx,dx 

;set  dx  to 

zero 

;set  DS 

reg  to  point 

to  the  current  data  area 

mov 

ax, data  area 

; point  to  data_area 

mov 

ds,ax 

;DS  now  points  to 

;data 

area 

Initialize  the  DART  to  xl6  clock,  1  stop  bit,  8  Tx/Rx 
bits,  no  parity,  and  no  interrupts  (polled  mode) . 

AL  contains  the  control  byte  to  the  DART 
DX  contains  the  control  byte  address 


push 

ax 

;save  ax 

push 

dx 

;save  dx 

mov 

dx,port2 

; output  port  control 
; address 

mov 

al, 18h 

; channel  reset  command 

out 

dx,al 

; issue  command 

out 

dx,al 

; again,  just  to  be 
;sure 

mov 

al, Olh 

; point  to  WR1 

out 

dx,al 

;load  pointer  into  WRO 

BOV 


al,00h  ;disable  all 

; interrupts 


out 

dx,al 

; issue  command 

WR2 : 

BOV 

al , 02h 

; point  to  WR2 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al , OOh 

;disable  all 

? interrupts 

out 

dx,al 

; issue  command 

WR3: 

BOV 

al, 03h 

; point  to  W32 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al, Oclh 

;Rx  enable,  8  bits. 

;auto  enable  off 

out 

dx,al 

; issue  command 

WR4: 

mov 

al , 04h 

;point  to  WR4 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al, 44h 

;xl6  elk,  no  parity,  1 

;stop  bit 

out 

dx,al 

; issue  command 

WR5: 

BOV 

al, 05h 

? point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al , 6ah 

;Tx  enable,  8  Tx 

;bits,  RTS  enable 

out 

dx,al 

; issue  command 

;  Receive 

some  data 

from  the  other 

Z-100 

;  Test 

bit  DO  of 

RRO.  If  the 

bit  is  set,  a  receive 

; character 

is  available. 

Loop2: 

BOV 

dx, Olh 

.•control  address  of 

DART 

in 

al,dx 

;read  RRO 

and 

al, Olh 

;mask  for  1st  data  bit 

jz 

loop2 

;no  chara?  keep 

; polling 

BOV 

dx, OOh 

;data  address  of  DART 

in 

al,dx 

;read  character  into 

;al 

BOV 

bl,al 

; store  character  into 

;bl 

Output  the  character  back  to  the  DART.  Check  the  tx 
buffer  to  see  if  it  is  empty  first.  This  is  done  by 
testing  bit  3  of  RRO. 
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Loop3: 

mov 

dx, Olh 

.’control  address  of 

DART 

in 

al,dx 

;read  RRO 

and 

al, 04h 

;mask  for  bit  3 

jz 

loop  3 

;wait  for  the  Tx 

mov 

dx,00h 

buffer 

;data  address  of  DART 

mov 

al.bl 

;put  character  into  al 

out 

dx,  al 

; output  the  character 

jmp 

loop  2 

;no,  output  same 

• 

f 

character 

» A1 1  do , 

so  exit  from 

program 

exit3 : 

mov 

ax,4c00h 

;use  DOS  function  4c 

• 

int 

21h 

;to  exit  from  program 

9 

main 

LAB_1 

endp 

ends 

end 

main 

;end  assy 
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Appendix  D:  Test  Data 

The  following  test  data  was  collected  during  the  first 
test  of  a  DART  configured  as  a  serial  I/O  port.  The  DART 
was  set  internally  to  9600  baud,  one  start  bit,  one  stop 
bit,  no  parity,  and  xl6  clock.  An  external  clock  running  at 
153.6  Khz  was  connected  to  pins  13  and  14  of  the  DART  to 
provide  an  internal  clock  pulse.  All  equipment  was  turned 
on  simultaneously  and  allowed  to  warm  up  as  the  test 
progressed. 

The  DART  was  tested  by  sending  a  word  (8  bits)  to  the 
DART  from  a  Z-100.  The  DART  received  the  word,  then 
transmitted  the  word  back  to  the  Z-100.  The  Z-100  checked 
the  received  word  with  the  orginal  transmitted  word  to 
determine  if  they  were  equal.  Any  word  found  not  equal  to 
the  transmitted  word  was  counted  as  one  error.  Multiple 
errors  within  a  word,  if  they  occured,  were  not  check  and 
therefore  are  not  accounted  for  in  the  following  data. 
Nevertheless,  the  data  given  is  sufficient  to  develop  an 
error  curve  versus  time.  Once  the  equipment  is  sufficiently 
warm,  the  error  rate  drops  to  zero. 
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Words  transmitted  Approximate  Time  Errors  Count  Errors 


01000 

00:00 

10 

01000 

1000 

02000 

00:00 

20 

02000 

1000 

03000 

00:00 

30 

03000 

1000 

04000 

00:00 

40 

04000 

1000 

05000 

00:00 

50 

05000 

1000 

06000 

00:00 

60 

06000 

1000 

07000 

00:00 

70 

07000 

1000 

08000 

00:00 

80 

08000 

1000 

09000 

00:00 

90 

09000 

1000 

10000 

00:01 

00 

10000 

1000 

11000 

00:01 

10 

11000 

1000 

12000 

00:01 

20 

12000 

1000 

13000 

00:01 

30 

13000 

1000 

14000 

00:01 

40 

14000 

1000 

15000 

00:01 

50 

15000 

1000 

16000 

00:01 

60 

16000 

1000 

17000 

00:01 

70 

17000 

1000 

18000 

00:01 

80 

18000 

1000 

19000 

00:01 

90 

19000 

1000 

10000 

00:02 

00 

20000 

1000 

21000 

00:02 

10 

21000 

1000 

22000 

00:02 

20 

22000 

1000 

23000 

00:02 

30 

23000 

1000 

24000 

00:02 

40 

24000 

1000 

25000 

00:02 

50 

25000 

1000 

26000 

00:02 

60 

26000 

1000 

27000 

00:02 

70 

27000 

1000 

28000 

00:02 

80 

28000 

1000 

29000 

00:02 

90 

29000 

1000 

30000 

00:03 

00 

30000 

1000 

31000 

00:03 

10 

31000 

1000 

32000 

00:03 

20 

32000 

1000 

Divide  overflow  on 

error  count, 

reset  and  continue 

• 

• 

33000 

00:03. 

•30 

01000 

1000 

34000 

00:03* 

40 

02000 

1000 

35000 

00:03:50 

03000 

1000 

36000 

00:03- 

60 

04000 

1000 

37000 

00:03- 

70 

05000 

1000 

38000 

00:03. 

80 

06000 

1000 

39000 

00:03:90 

07000 

1000 

40000 

00:04. 

00 

08000 

1000 

41000 

00:04- 

10 

09000 

1000 

42000 

00:04:20 

10000 

1000 

43000 

00:04 

30 

11000 

1000 

44000 

00:04 

40 

12000 

1000 

45000 

00:04: 

50 

13000 

1000 

46000 

00:04: 

60 

14000 

1000 
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Words  transmitted  Approximate  Time  Errors  Count  Errors 


47000 

00:04 

70 

15000 

1000 

48000 

00:04 

80 

16000 

1000 

49000 

00 

‘04 

90 

17000 

1000 

50000 

00 

-05 

00 

18000 

1000 

51000 

00:05 

10 

19000 

1000 

52000 

00 

05 

20 

20000 

1000 

53000 

00 

.05 

30 

21000 

1000 

54000 

00 

05 

40 

22000 

1000 

55000 

00 

-05 

50 

23000 

1000 

56000 

00 

05 

60 

24000 

1000 

57000 

00 

05 

70 

25000 

1000 

58000 

00 

:05 

80 

26000 

1000 

59000 

00 

05 

90 

27000 

1000 

60000 

00:06 

00 

28000 

1000 

61000 

00 

:06 

10 

29000 

1000 

62000 

00 

06 

20 

30000 

1000 

63000 

00 

-06 

30 

31000 

1000 

64000 

00 

:06 

40 

32000 

1000 

Divide  overflow  on 

error  < 

:ount , 

reset  and  continue 

• 

• 

65000 

00 

06 

50 

00828 

0828 

66000 

00 

06 

60 

01616 

0788 

67000 

00 

06 

70 

02321 

0705 

68000 

00 

06 

80 

03129 

0808 

69000 

00 

06 

90 

03852 

0723 

70000 

00 

07 

00 

04566 

0714 

71000 

00 

07 

10 

05267 

0701 

72000 

00 

07 

20 

05897 

0630 

73000 

00 

07 

30 

06504 

0607 

74000 

00 

07 

40 

07110 

0606 

75000 

00 

07 

50 

07679 

0587 

76000 

00 

07 

60 

08220 

0523 

77000 

00 

07 

70 

08753 

0533 

78000 

00 

07 

80 

09250 

0497 

79000 

00 

07 

90 

09750 

0500 

80000 

00 

08 

00 

10132 

0382 

81000 

00 

08 

10 

10555 

0423 

82000 

00 

08 

20 

10958 

0403 

83000 

00 

08 

30 

11343 

0385 

84000 

00 

08 

40 

11700 

0357 

85000 

00 

08 

50 

12011 

0311 

86000 

00 

08 

60 

12313 

0302 

87000 

00 

08 

70 

12591 

0278 

88000 

00 

08 

80 

12851 

0260 

89000 

00 

08 

90 

13079 

0228 

90000 

00 

09 

00 

13281 

0202 

91000 

00 

09 

10 

13456 

0175 
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Words  transmitted 

Approximate  Time 

Errors  Count 

Errors 

92000 

00:09:20 

13605 

0149 

93000 

00:09:30 

13727 

0122 

94000 

00:09:40 

13814 

0087 

95000 

00:09:50 

13894 

0080 

96000 

00:09:60 

13940 

0054 

97000 

00:09:70 

13955 

0015 

98000 

00:09:80 

14020 

0025 

99000 

00:09:90 

14044 

0024 

100000 

00:09:00 

14051 

0007 

101000 

00:10:10 

14051 

0000 

102000 

00:11:20 

14051 

0000 

103000 

00:12:30 

14051 

0000 

An  additional  five  errors  were  observed  as  the  number 
of  words  transmitted  increased  to  400000  (about  40  minutes 
after  starting) .  After  this  time,  no  additional  errors  were 
observed . 
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Appendix  E:  BCH . EngQfler  ggftw^re 
*********************************************************** 

BCH.ASM 

BCH.ASM  is  a  test  routine  for  the  BCH  encoder. 

BCH.ASM  will  prompt  the  user  for  a  multiplier  polynomial 
(up  to  eight  bits)  which  it  stores  in  a  one  character  word. 

NOTA  BENE:  The  BCH  encoder  must  be  set  to  the 
generator  polynomial  choosen  by  the  user  above. 

BCH.ASM  then  prompts  the  user  for  a  code  word  which 
can  be  any  ASCII  character.  The  code  word  is  multiplied  by 
the  multiplier  polynomial  and  displayed  on  the  screen. 

Once  the  results  has  been  displayed,  BCH.ASM  sends  the  code 
word  through  the  BCH  encoder  for  encoding.  The  encoded 
word  is  displayed  on  the  screen  for  easy  comparison  to  the 
multiplied  word. 

*********************************************************** 


;  Define 

constants 

bell 

equ 

07h 

;ASCII  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carriage 

return 

If 

equ 

Oah 

;ASCII  char  for  line  feed 

portl 

equ 

OOOOh 

; output  port ,  data 

port2 

• 

9 

equ 

OOOlh 

; output  port,  control 

*********************************************************** 


9 

stack. 

area 

segment  stack  ; define  the  stack  area 

db  40  dup(?)  ;set  aside  room  for 

stack 

stack, 

• 

9 

area 

ends 

• 

9 

data  area 

segment 

; define  data  area 

msgl 

db 

cr,  If 

db 

•Enter  the 

generator  polynmial  (-30h) : ' , 

db 

cr,lf , '$• 

msg2 

db 

cr, If , If 

db 

'Enter  the 

code  word: ' ,cr,lf , '$' 

msg3 

db 

msg4 

db 

•O' , 

msg5 

db 

cr, Iff, •$• 

msg6 

db 

'Enter  the 

value  of  n-k:','$' 
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GEN 

db 

OOh 

CODE 

dw 

OOOCh 

MWORD 

dv 

OOOOh 

NK 

db 

ooh 

data  i 

area 

ends 

*********************************************************** 


segment 


proc 

assume 


; define  segment  area  for 
; program 
far 

cs:LAB_l,  ds:data_area. 


LAB_1 
main 

ss : stack_area 
set  all  register  to  zero  (makes  it  easier  to  debug) 
begin: 


sub 

ax,  ax 

;set 

ax 

to 

zero 

sub 

bx,bx 

;set 

bx 

to 

zero 

sub 

cx,cx 

;set 

cx 

to 

zero 

sub 

dx,dx 

;set 

dx 

to 

zero 

set  DS  reg  to  point  to  the  current  data  area 


mov 

mov 


data  area 


ax,data_area 
ds,  ax 


; point  to  data_area 
;DS  now  points  to 


f  Initialize  the  DART  to  xl6  clock,  1  stop  bit,  8  Tx/Rx  ; 
bits,  no  parity,  and  no  interrupts  (polled  mode) . 


9 


• 

9 

AL  contains 

the  control 

byte  to  the  DART 

• 

9 

DX  contains 

the  control 

byte  address 

push 

ax 

;save  ax 

push 

dx 

;save  dx 

mov 

dx,port2 

; output  port  address 

mov 

al, 18h 

; channel  reset  command 

out 

dx,  al 

; issue  command 

out 

dx,al 

;again,  just  to  be  sure 

WR1: 

mov 

al , Olh 

;point  to  WR1 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al , OOh 

; disable  all  interrupts 

out 

dx,  al 

; issue  command 

WR2: 

mov 

al,02h 

; point  to  WR2 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al, OOh 

;disable  all  interrupts 

out 

dx,al 

; issue  command 

WR3: 

mov 

al,03h 

; point  to  WR3 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al,Oclh 

;Rx  enable,  8  bits. 
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9 


out 

dx,al 

;auto  enable  off 
; issue  command 

WR4 :  bov 

al , 04h 

; point  to  WR4 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al, 44h 

;xl6  elk,  no  parity,  1  stop 

bit 

out 

dx,al 

; issue  command 

WR5 :  bov 

al , 05h 

; point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al,6ah 

;Tx  enable,  8  Tx  bits, RTS 

• 

t 

enable 

out 

dx,al 

; issue  command 

I 

;  Disable  the 

DART  receiver  and  transmitter,  so  that 

;  the  BCH  encoder  can  be  used 

without  affecting  ; 

transmissions . 

f 

mov 

al,03h 

; point  to  WR3 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al,Oclh 

;Rx  disabled,  8  bits, 

BOV 

al , 05h 

;auto  enable  off 

;point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al, 6ah 

;Tx  disabled,  8  Tx  bits. 

out 

dx,al 

;RTS  disabled 

• 

» 

;  Prompt  for  the  generator  polynomial: 

• 

, 

mov 

dx, offset 

msgl  ;load  dx  with  add  msgl 

mov 

ah, 09h 

int 

21h 

mov 

ah,01h 

;Read  char  and  echo 

int 

21h 

;Char  in  al 

sub 

al , 3 Oh 

; convert  to  binary 
; store  char  in  bl 

mov 

GEN, al 

mov 

dx, offset 

msg5  ;to  cr  and  If 

mov 

ah, 09h 

int 

21h 

$ 

;  Prompt  for 

• 

value  of  n-k: 

mov 

dx, offset 

msg6  ; prompt  for  n-k 

mov 

ah,09h 

int 

21h 

mov 

ah, Olh 

;read  char  and  echo 

int 

21h 

;n-k  in  al 

sub 

al , 3 Oh 

; convert  to  binary 
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BOV 

NK,al 

; store  n-k  in  NK 

BOV 

dx, offset  BsgS 

;to  cr  and  If 

BOV 

ah,09h 

int 

• 

21h 

t 

;  Proapt  for 
• 

the  code  word: 

$ 

Loopl :  bov 

dx, offset  asg2 

;load  dx  with  add  msg2 

BOV 

ah,09h 

int 

21h 

BOV 

ah, Olh 

;Read  char  and  echo 

int 

21h 

;Char  in  al 

sub 

bx,bx 

; clear  bx 

BOV 

bl,al 

;put  code  word  in  bl 

BOV 

CODE , bx 

; store  code  word 

BOV 

dx, offset  Bsg5 

;load  cr  and  If 

BOV 

ah, 09h 

int 

21h 

;  Multilply  code  word  with  generator  polylnomial  and  ; 
display  the  result  (Note,  this  is  not  binary  ? 


BUltiplication) : 

• 

1 

sub 

bx,bx 

; clear  bx 

sub 

ax,  ax 

;clear  ax  (holds  ans) 

BOV 

dx , CODE 

;code  word  in  dx 

BOV 

bh , GEN 

?put  gen  poly  in  bh 

BOV 

cx,0008h 

; count  8  bits 

ContM: 

shr 

bx,  1 

; shift  bit  into  bx 

and 

bl , 80h 

;aask  for  high  bit 

CBp 

bl,00h 

;is  bit  0  or  1 

je 

Skip 

;yes,  skip  xor 

xor 

ax,dx 

; answer  in  ax 

Skip: 

shl 

dx,  1 

;get  ready  for  next  xor 

dec 

cx 

; decrease  count 

cap 

cx, OOOOh  ;all  done? 

jg 

ContM 

;no,  continue 

;aultipling 

BOV 

bx,ax 

; answer  in  bx 

call 

Prnt 

Now  generate  the  encoded  word  using  the  BCH  encoder 
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LOOP3 : 


LOOP4 : 


BOV 

bx , CODE 

;bx  has  code  word 

BOV 

cl  ,NK 

;cl  loaded  with  n-k 

•hi 

bx ,  cl 

;add  zero  padding 

BOV 

CODE , bx 

; store  padded  code 

BOV 

dx,8000h 

;to  clear  the  encoder 

BOV 

al, OOh 

out 

dx,al 

BOV 

cx, OOOfh 

;cx  counts  15  bits 

BOV 

bx , CODE 

;bx  has  code  char 

BOV 

dx,4000h 

;to  clock  data  into 
;BCH  encoder 

BOV 

al,bh 

;bov  bh  into  al 

out 

dx,al 

; output  high  bit 

shl 

bx,  1 

; shift  bx  left  1  bit 

BOV 

CODE , bx 

; store  code  word 

ie  encoded 

word 

BOV 

dx, OcOOOh 

;to  input  a  bit 

sub 

bx,bx 

;clear  bx 

in 

al,dx 

;al  has  low  order  bit 

and 

al , Olh 

; strip  off  low  bit 

BOV 

bl,al 

;bl  has  low  order  bit 

BOV 

ax,KWORD 

;al  has  encoded  word 

or 

ax,bx 

; append  new  bit 

BOV 

bx,ax 

;Prnt  prints  bx 

crop 

cx,000lh 

;all  done? 

je 

Go  Prat 

;yes,  Print  result 

shl 

ax,  1 

;shift  al  left  1  bit 

BOV 

MWORD, ax 

! store  result  in  MWORD 

dec 

CX 

;cx  holds  count 

jap 

LOOP3 

; finish  getting  result 

call 

Prnt 

sub 

ax,  ax 

; clear  ax 

BOV 

MWORD, ax 

; clear  MWORD 

jap 

Loopl 

*********************************************************** 


Subroutine  to  print  the  result 
Word  to  be  printed  oust  be  in  bx 


*********************************************************** 


Prat 


proc 

bov 


near 
cx, OOlOh 


;cx  counts  16  bits 


1 . . 

-J  £  ■-_■  < 

Loop2: 

aov 

ax,bx 

;put  answer  in  ax 

and 

ax,8000h 

;aask  for  high  order 

• 

9 

bit 

cmp 

ax,0000h 

;is  bit  a  zero? 

j« 

Zero 

BOV 

dx, offset  msg3 

; output  a  "1" 

BOV 

ah,09h 

int 

21h 

jmp 

Cont 

Zero: 

BOV 

dx, offset  msg4 

; output  a  "O" 

mov 

ah,09h 

int 

21h 

Cont: 

dec 

cx 

; decrease  counter 

cmp 

cx,0000h 

;all  done? 

je 

Go 

;yes,  exit 

shl 

bx,  1 

;get  next  bit  and 

jmp 

Loop  2 

; continue 

Go: 

mov 

dx, offset  msg5 

;cr  and  If 

mov 

ah, 09h 

int 

21h 

ret 

Prnt 

endp 

;******************************************************* 

;A11  do, 

• 

so  exit 

from  program 

# 

Exit: 

mov 

ax,4c00h  fuse 

DOS  function  4c 

• 

int 

21h  ;to 

exit  from  program 

9 

main 

endp 

LAB_1 

ends 

end 

main  ;end 

assy 
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*********************************************************** 


DECODE. ASM 

DECODE. ASM  is  a  test  routine  for  the  BCH  decoder. 
DECODE. ASM  vill  prompt  the  user  for  a  multiplier  polynomial 
(up  to  eight  bits)  vhich  it  stores  in  a  one  character  word. 

NOTA  BENE:  The  BCH  decoder  must  be  set  to  the 
generator  polynomial  choosen  by  the  user  above. 

DECODE. ASM  then  prompts  the  user  for  a  code  word  vhich 
can  be  any  ASCII  character.  The  code  word  is  multiplied  by 
the  multiplier  polynomial  and  displayed  on  the  screen. 

Once  the  results  has  been  displayed,  BCH. ASM  sends  the 
encoded  word  through  the  BCH  decoder  for  decoding.  The 
decoded  word  is  displayed  on  the  screen  for  easy  comparison 
to  the  original  code  word. 

*********************************************************** 


;  Define 

constants 

bell 

equ 

07h 

; ASCI I  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carriage 
; return 

If 

equ 

Oah 

; ASCII  char  for  line  feed 

portl 

equ 

OOOOh 

,’ output  port,  data 

port  2 

• 

9 

equ 

OOOlh 

; output  port,  control 

*********************************************************** 


9 

stack_ 

area 

segment  stack  ; define  the  stack  area 

db  40  dup(?)  ;set  aside  room  for 

stack 

stack_ 

• 

9 

_area 

ends 

• 

9 

data  area 

segment 

; define  data  area 

msgl 

db 

cr,lf 

db 

'Enter  the 

generator  polynmial  (-3 Oh) : ' , 

db 

cr,lf , '$' 

msg2 

db 

cr,lf ,lf 

db 

'Enter  the 

code  word: ' ,cr,lf , '$' 

msg3 

db 

'1', ’$' 

msg4 

db 

•O', •$' 

msg5 

db 

cr, If , '$' 

msg6 

db 

'Enter  the 

value  of  n-k: ' , '$' 

I'--*-1--*'*''-*1 


Bsg7 

db 

•Enter  the  value  of 

k:  ’, •$• 

GEN 

db 

OOh 

CODE 

dv 

OOOOh 

KWORD 

dv 

OOOOh 

NK 

db 

OOh 

K 

db 

OOh 

RESULT 

db 

OOh 

data_area 

• 

ends 

9 

•A******************************************** 

• 

9 

m 

LAB_1 

Bain 

ss : stack 

area 

segment  ; define  segBent  i 

; program 
proc  far 

assuse  cs : LAB_1 ,  ds:data_area 

set  all  register  to  zero  (stakes  it  easier  to  debug) 
begin: 


sub 

ax,  ax 

;set 

ax 

to 

zero 

sub 

bx,bx 

;set 

bx 

to 

zero 

sub 

cx,cx 

;set 

cx 

to 

zero 

sub 

dx,dx 

;set 

dx 

to 

zero 

set  DS  reg  to  point  to  the  current  data  area 


siov 

mov 


data  area 


ax, data_area 
ds,ax 


; point  to  data_area 
;0S  now  points  to 


;  Initialize  the  DART  to  xl6  clock,  1  stop  bit,  8  Tx/Rx  ; 
bits,  no  parity,  and  no  interrupts  (polled  mode) . 


9 


• 

9 

AL  contains 

the  control 

byte  to  the  DART 

• 

9 

DX  contains 

the  control 

byte  address 

push 

ax 

;save  ax 

push 

dx 

;save  dx 

BOV 

dx,port2 

; output  port  address 

BOV 

al, 18h 

; channel  reset  command 

out 

dx,al 

; issue  command 

out 

dx,al 

; again,  just  to  be  sure 

WRl: 

BOV 

al,01h 

; point  to  WRl 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al, OOh 

; disable  all  interrupts 

out 

dx,al 

; issue  coBBand 

WR2 : 

BOV 

al, 02h 

; point  to  WR2 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al,00h 

; disable  all  interrupts 

out 

dx,al 

; issue  command 
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WR3 :  bov 

al, 03h 

; point  to  WR3 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al,0clh 

;Rx  enable,  8  bits, 

;auto  enable  off 

out 

dx,al 

j issue  command 

WR4 :  BOV 

al,04h 

; point  to  WR4 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al,44h 

;xl6  elk,  no  parity,  1  stop 
;bit 

out 

dx,al 

; issue  command 

WR5 :  BOV 

al,05h 

; point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al , 6ah 

;Tx  enable,  8  Tx  bits, RTS 
;  enable 

out 

dx,al 

; issue  command 

9 

;  Disable  the 

DART  receiver 

and  transmitter,  so  that 

;  the  BCH  decoder  can  be  used  without  affecting  ; 

transmissions . 

• 

» 

BOV 

al,03h 

; point  to  WR3 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al, Oclh 

;Rx  disabled,  8  bits, 

;auto  enable  off 

BOV 

al,05h 

; point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al , 6ah 

;Tx  disabled,  8  Tx  bits. 

out 

dx,al 

;RTS  disabled 

• 

f 

;  Prompt  for 
• 

the  generator  polynomial: 

t 

mov 

dx, offset 

msgl  ;load  dx  with  add  msgl 

BOV 

ah, 09h 

int 

21h 

mov 

ah,01h 

;Read  char  and  echo 

int 

21h 

;Char  in  al 

sub 

al , 30h 

; convert  to  binary 

BOV 

GEN, al 

; store  char  in  bl 

BOV 

dx, offset 

msg5  ;to  cr  and  If 

BOV 

ah,09h 

int 

21h 

;  Prompt  for 

value  of  n-X: 

BOV 

mov 

int 

dx, offset 
ah,09h 

21h 

msg6  ; prompt  for  n-k 

bov 

BOV 

int 
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2 


aov 

ah,01h 

;read  char  and  echo 

int 

21h 

?n-k  in  al 

* 

sub 

al, 30h 

; convert  to  binary 

“  d 

aov 

NK,al 

7 store  n-k  in  NK 

aov 

dx, offset  asg5 

;to  cr  and  If 

aov 

ah,09h 

int 

• 

a 

21h 

J 

;  Proapt  for  value  of  k: 

• 

r 

aov 

dx, offset  asg7 

; prompt  for  k 

aov 

ah,09h 

int 

21h 

i 

aov 

ah,01h 

; read  char  and  echo 

int 

21h 

7k  in  al 

sub 

al,30h 

7 convert  to  binary 

aov 

K,al 

7 store  k  in  K 

aov 

dx, offset  asg5 

7 to  cr  and  If 

J 

aov 

ah, 09h 

int 

21h 

7  Proapt  for 

the  code  word: 

J 

Loopl:  aov 

dx, offset  asg2 

7 load  dx  with  add  msg2 

aov 

ah, 09h 

int 

21h 

aov 

ah,01h 

7 Read  char  and  echo 

int 

21h 

7 Char  in  al 

.1 

sub 

bx,bx 

7 clear  bx 

aov 

bl,al 

7 put  code  word  in  bl 

aov 

CODE , bx 

7 store  code  word 

aov 

dx, offset  asg5 

7  load  cr  and  If 

Jl 

aov 

ah,09h 

int 

21h 

aov 

bx, CODE 

call 

Pmt 

;  Multilply  code  word  with  generator  polylnomial  and 
display  the  result  (Note,  this  is  not  binary  ; 
multiplication) : 


sub 

sub 


bx,bx 
ax,  ax 


; clear  bx 

;clear  ax  (holds  ans) 
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ContM: 


Skip: 


BOV 

dx , CODE 

;code  word  in  dx 

BOV 

bh , GEN 

;put  gen  poly  in  bh 

BOV 

cx, 0008h 

; count  8  bits 

shr 

bx,  1 

; shift  bit  into  bx 

and 

bl , 80h 

;sask  for  high  bit 

CBp 

bl , OOh 

;is  bit  0  or  1 

je 

Skip 

;yes,  skip  xor 

xor 

ax,dx 

; answer  in  ax 

shl 

dx,  1 

;get  ready  for  next  xor 

dec 

cx 

; decrease  count 

CBp 

cx, OOOOh 

;all  done? 

jg 

ContM 

,*no,  continue 

• 

9 

Bultipling 

BOV 

MWORD, ax 

; store  answer  in  MWORD 

BOV 

bx,ax 

; answer  in  bx 

call 

Prnt 

Now  decode  the  encoded  word  using  the  BCH  decoder 


mov  dx, OOOOh  ;to  clear  the  decoder 

bov  al , OOh 

out  dx,al 


Clock  in  n-k  data  bits 


9 

BOV 

bx, MWORD 

.’encoded  word  in  bx 

BHigh: 

BOV 

al,NK 

;al  has  n-k 

BOV 

dl,K 

;dl  has  k 

add 

al,dl 

;al  has  n 

BOV 

cl , 16d 

;cl  has  16 

sub 

cl,al 

;cl  has  #  of  zeros 

shl 

bx,cl 

; shi ft  out  zeros 

sub 

cx,  cx 

; clear  cx 

BOV 

cl  ,NK 

;cx  counts  n-k  bits 

BOV 

dx, 4000h 

;to  clock  data  into 
;BCH  decoder 

LOOP3: 

BOV 

al,bh 

;high  order  bit  in  - 

out 

dx,al 

; output  high  bit 

shl 

bx,  1 

? shi ft  bx  left  once 

dec 

cx 

; count  down  n-k 

cap 

cx, OOOOh 

;all  done? 
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BELT. 


W-J* 


je 

DEC 

;yes,  finish  decoding 

jmp 

LOOP  3 

; finish  loading  bits 

• 

;  Next 
• 

k  bits 

are  the  decoded  word 

DEC: 

mov 

cl ,  K 

;to  count  k  bits 

mov 

RESULT, 0 Oh 

; clear  result 

LOOP4 : 

mov 

dx,OcOOOh 

; input  a  bit  into  CPU 

in 

al,dx 

;bit  is  in  AO 

and 

al , Olh 

;mask  for  DO  (AO) 

mov 

dl , RESULT 

; decoder  word  in  dl 

shl 

dl,  1 

; shift  deocded  word 
;left  1 

xor 

dl,al 

;add  bit  to  decoded 
;word 

mov 

RESULT, dl 

; store  result 

mov 

dx,4000h 

;to  output  a  bit 

mov 

al  ,bh 

;high  order  bit  in  A7 

out 

dx,al 

; output  the  bit 

shl 

bx,  l 

; shift  encoded  word 
?left  1 

dec 

cl 

; decrease  count 

cmp 

cl,00h 

;all  done? 

je 

OUT 

?yes,  go  to  OUT 

jmp 

LOOP4 

; finish  decoding 

OUT: 

sub 

bx,bx 

; clear  bx 

mov 

bl, RESULT 

;place  result  in  bl 

• 

call 

Prat 

; Print  result 

9 

;  Output  the 

• 

character  to  the 

screen 

9 

mov 

dl, RESULT 

; character  in  dl 

mov 

int 

jmp 

ah, 02h 

21h 

Loopl 

;DOS  call  to  prnt  char 

;*********************************************************** 

9 

;  Subroutine  to  print  the  result 

;  Word  to  be  printed  must  be  in  bx 

• 

9 

;*********************************************************** 

Prat  proc  near 

mov  cx, OOlOh  ;cx  counts  16  bits 

;put  answer  in  ax 


Loop2 :  mov 


ax,bx 
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and 

ax,8000h 

;mask  for  high  order 

t 

bit 

cmp 

ax, OOOOh 

;is  bit  a  zero? 

j® 

Zero 

mov 

dx, offset  msg3 

; output  a  "l" 

mov 

ah,09h 

int 

21h 

jmp 

Cont 

Zero: 

mov 

dx, offset  msg4 

/output  a  "0" 

mov 

ah, 09h 

int 

21h 

Cont: 

dec 

cx 

/decrease  counter 

cmp 

cx, ooooh 

/all  done? 

je 

Go 

/yes,  exit 

shl 

bx,  1 

/get  next  bit  and 

jmp 

Loop2 

/continue 

Go: 

mov 

dx, offset  msg5 

zcr  and  If 

mov 

ah, 09h 

int 

21h 

ret 

Prnt 

endp 

******************************************************** 

• 

/All  do, 

• 

so  exit 

from  program 

Exit: 

mov 

ax,4c00h  ;use 

DOS  function  4c 

• 

int 

2lh  ;to 

exit  from  program 

9 

main 

endp 

LAB_1 

ends 

end 

main  ;end 

assy 

'Z 


*********************************************************** 


DEC1.ASM  generates  the  syndromes  for  the  (15,7)  two 
error  correcting  BCH  code  using  the  generator  polynomial 
x8  +  x7  +  x6  +  x4  +  1.  All  error  polynomials  and 
syndromes  are  generated  in  software  and  sent  to  the  printer 
for  a  hard  copy  display  of  the  results. 

*********************************************************** 


y  Define. 

constants 

bell 

equ 

07h 

/ASCII  char  for  bell 

cr 

equ 

Odh 

; ASCI I  char  for  carriage 

/return 

If 

equ 

Oah 

/ASCII  char  for  line  feed 

portl 

equ 

OOOOh 

/output  port,  data 

port  2 

• 

/ 

equ 

OOOlh 

/output  port,  control 

*********************************************************** 
stack  area 


stack 
stack  area 


data  area 


segment  stack 
db  40  dup(?) 

ends 

segment 


GEN 

dw 

Oldlh 

CODE 

dw 

OOOOh 

MWORD 

dw 

OOOOh 

NK 

db 

08h 

K 

db 

07h 

N 

db 

Ofh 

T 

db 

02h 

Base 

dw 

OOOlh 

Drv 

dw 

0002h 

RESULT 

db 

OOh 

MSK 

dw 

OOOOh 

Count 

db 

OOh 

LIST 

db 

300  dup  ( 

Extr 

db 

10  dup  ( 

data  area 

ends 

’) 

') 


; define  the  stack  area 
;set  aside  room  for 


; define  data  area 


*********************************************************** 


LAB  1 


segment 


; define  segment  area  for 


program 

main  proc  far 

assume  cs : LAB_1 ,  ds : da ta_area , 
ss : stack_area 

9 

;set  all  register  to  zero  (makes  it  easier  to  debug) 


sub 

ax,  ax 

;set 

ax 

to 

zero 

sub 

bx,bx 

;set 

bx 

to 

zero 

sub 

cx,  cx 

;set 

cx 

to 

zero 

sub 

dx,dx 

;  set 

dx 

to 

zero 

;set  DS  reg  to  point  to  the  current  data  area 

9 

mov  ax,data_area  ; point  to  data_area 

mov  ds,ax  ;DS  now  points  to 

data_area 

call  Generate 

call  LST 

jmp  Exit 

9 

;*********************************************************** 

9 

;  Generate  is  a  subroutine  that  generates  the  syndroms  for 
yall  possible  error  conditions  allowed  by  the  given  code 
; structure . 

9 

;  Note  that  cx  contains  the  length  of  the  encoded  word 

;  and  dx  contains  the  number  of  correctable  errors 

• 

9 

;*********************************************************** 

9 

Generate  proc  near 

9 

;  Generate  single  error  polynomials 


push 

ax 

push 

bx 

push 

cx 

push 

dx 

Clear  LIST  to 

all  Zeros 

sub 

bx,bx 

?bx  has  all  zeros 

mov 

SI, off set  LIST 

;SI  points  to  LIST 

mov 

cx, 300d 

;cx  has  number  of 
; records 

:  mov 

[SI] ,bx 

; output  zeros 

add 

SI, 02h 

; point  to  next  record 

mov 

[SI] ,bx 

; output  zeros 

add 

SI ,  02h 

; point  to  next  record 

dec 

cx 

cmp 

cx, OOh 

;all  done? 

je 

Sta 

jap 

Rpt 

;  Compute  single 
• 

errors : 

9 

Sta :  bov 

SI, off set  LIST 

;SI  points  to  LIST 

mov 

bx, OOOlh 

;bx  used  to  generate 
; error 

{polynomials 

mov 

cl,N 

? cx  has  length  of 
{polynomial 

Goopl :  mov 

[SI] ,bx 

{store  bx  in  LIST 

call 

SYNDROME 

{calculate  the  syndrom 

add 

SI , 02h 

{SI  points  to  next  pos 

shl 

bx,  1 

{generate  next  error 
{poly 

dec 

cl 

{count  down  number  of 
{ errors 

cmp 

cl, Olh 

{all  done? 

je 

Gext 

{do  double  errors 

jmp 

Goopl 

{no,  finish  single 
{errors 

;  Compute  double  errors  if  number 

of  errors  «  2 

t 


Gext: 

mov 

cl ,  T 

{number  of  errors  in  cl 

cmp 

cl,02h 

; double  errors 
{ indicated? 

jne 

Gxit 

{no,  skip  double  errors 

mov 

cl,N 

{cx  has  length  of 
{polynomial 

mov 

dl,N 

;dx  has  length  of 
{polynmoial 

dec 

dl 

{dx  has  N-l 

mov 

Count, dl 

{store  N-l  in  Count 

mov 

bx,Base 

,*bx  used  to  generate 

{ error 

{plynomials 

mov 

ax,drv 

,*ax  has  02h 

Goop2 : 

xor 

bx,ax 

{bx  contains  double 
{ error 

mov 

[SI] ,bx 

{store  bx  in  LIST 

call 

SYNDROME 

{calculate  the  syndrome 

add 

SI , 02h 

{SI  points  to  next  pos 

mov 

bx, Base 

{.reinitialize  bx 

shl 

ax,  1 

{shift  ax  left  once 

dec 

dl 

{to  count  shifts 
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cmp 

dl,00h 

je 

Chang 

jmp 

Goop2 

Chang : 

dec 

cl 

cmp 

cl, Olh 

je 

Gxit 

mov 

bx,Base 

shl 

bx,  1 

mov 

Base,bx 

mov 

ax, Drv 

shl 

ax,  1 

mov 

Drv, ax 

mov 

dl , Count 

dec 

dl 

mov 

Count , dl 

jmp 

Goop2 

Gxit: 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Generate  endp 

;all  done  yet 

;yes  change  bx  and  ax 

;no  continue 

; decrease  length  by  one 
;all  combinations  done 
;yet? 

;all  done,  exit 
;load  bx  with  Base 
;  shi ft  base  left  once 
;  store  bx  in  Base 
;ax  has  driver 
;shift  ax  left  once 
;  store  new  driver  in  Drv 

;put  Count  in  dl 

; store  Count-1  in  Count 


*********************************************************** 

SYNDROME  is  a  subroutine  to  calculate  the  syndrome  of 
an  error  polynomial  given  the  generator  polynomial. 

Note:  The  error  polynomial  must  be  in  bx,  the 
generator  polynomial  is  stored  as  a  global  variable 
in  GEN.  SI  has  been  initial zed  to  point  to  LIST  by 
subroutine  Generate. 

*********************************************************** 


SYNDROME 


proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

;  Place  generator  polynomial  in  ax  to  use  as  the  divisor 
;  and  intialize  ax  by  shifting  the  high  order  bit  as  far 
;  left  as  possible 

mov  dx,8000h  ;mask  for  high  order  bit 
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mov 

ax, GEN 

;ax  load  with  gen  poly 

Soopl : 

and 

dx,ax 

;test  for  high  order  bit 

cmp 

dx, 8000h 

;high  order  bit  set? 

1 

je 

Sext 

;yes,  procede 

shl 

ax,  1 

;no,  shift  ax  left  once 

mov 

dx,8000h 

; reinitialize  dx 

1 

jmp 

Soopl 

;  Ready  to  calculate  the  Syndrome 


Sext: 

mov 

cl, 16d 

; number  of  bits  in  a 
; register 

sub 

cl ,  NK 

;cl  has  #  of  shifts  needed 
;to  divide  error  polynmial 

mov 

dx,8000h 

;to  mask  high  bit 

mov 

MSK,dx 

; store  mask  in  MSK 

Soop2 : 

and 

dx,bx 

;is  bit  high? 

cmp 

dx,0000h 

;test  for  bit  high. 

je 

Shft 

;no,  shift  registers 

xor 

bx,ax 

;xor  (divide  by  steps) 
;bx/ax 

Shft: 

cmp 

cl,01h 

;all  done? 

je 

Stor 

f store  syndrome 

mov 

dx,MSK 

;load  dx  with  mask 

shr 

dx,  1 

; shift  mask  right  once 

mov 

MSK, dx 

; store  new  mask  in  MSK 

shr 

ax,  1 

; shift  gen  poly  right  once 

dec 

cl 

; decrease  count  by  one 

jmp 

Soop2 

; repeat  the  process 

;  Store 

the  syndrome 

Stor: 

add 

SI , 02h 

; point  to  storage  location 

mov 

[Sl],bx 

; syndrome  ( r ema inde r ) 

; stored 

;  Restore  registers 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

SYNDROME  endp 

************************************************************ 


Subroutine  to  print  the  result 
Word  to  be  printed  must  be  in  bx 

*********************************************************** 
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near 


Prnt 


proc 


push 

ax 

push 

bx 

push 

cx 

push 

dx 

BOV 

CX/ OOlOh 

;cx  counts  16  bits 

Loop2: 

BOV 

aX/bx 

;put  answer  in  ax 

and 

ax, 8000h 

;Bask  for  high  order 
;bit 

cmp 

ax, OOOOh 

;is  bit  a  zero? 

je 

Zero 

BOV 

dl,31h 

; output  a  1 

BOV 

ah, 05h 

int 

21h 

jmp 

Cont 

Zero: 

BOV 

dl,30h 

; output  a  0 

BOV 

ah, 05h 

int 

21h 

Cont: 

dec 

CX 

; decrease  counter 

cmp 

cx, OOOOh 

;all  done? 

je 

Go 

;yes,  exit 

shl 

bx,  1 

,*get  next  bit  and 

jmp 

Loop  2 

; continue 

Go: 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Prnt 

endp 

;******************************************************* 

t 

;  CRLF  is  a 

subroutine  to  output  a 

carriage  return 

;and  a 
• 

line  feed. 

f 

;******************************************************** 

CRLF 

Proc 

near 

BOV 

dl,Odh  ;cr 

BOV 

ah,05h 

int 

21h 

BOV 

dl,Oah  ;lf 

BOV 

ah,05h 
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int 

ret 

CRLF  endp 


********************************************************* 

BLNK  is  a  subroutine  to  output  four  blanks 
********************************************************** 


BLNK 

proc 

near 

mov 

dx,20h 

;four  blanks 

mov 

ah, 05h 

int 

21h 

ret 

BLNK 

endp 

;*********************************************************** 


LST  is  a  subroutine  to  list  the  contents  of  memory  in 
a  binary  format; 

Note:  will  only  list  the  contents  of  memory  stored  in 
memory  location  LIST 

*********************************************************** 


LST  proc  near 

mov  SI, off set  LIST  ;SI  points  to  LIST 

; Calculate  length  of  list  to  display 


mov 

al,T 

;ax  has  number  of  errors 

cmp 

al,02h 

;two  errors? 

je 

Two 

sub 

cx,cx 

;clear  cx 

mov 

cl ,  N 

;n  single  errors 

jmp 

Show 

sub 

cx,cx 

; clear  cx 

sub 

bx,bx 

;clear  bx 

mov 

cl,N 

; length  of  polynomial 

mov 

bl,N 

; length  of  polynomial 

dec 

bx 

;bx  has  N-l 

add 

cx,bx 

;cx  has  #  of  error  polys 

cmp 

bx,000h 

;all  done? 
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Show 

;yes,  print  the  results 

dec 

bx 

;next  number  to  add 

jmp 

Agn 

; Display  the  list 

Show: 

mov 

bx, (SI] 

; polynomial  to  be 
; displayed 

call 

Prnt 

; print  the  results 

call 

BLNK 

;add  some  blanks 

inc 

SI 

inc 

SI 

; point  to  next  record 

mov 

bx, [SI] 

;load  bx  with  next  record 

call 

Prnt 

; print  the  next  record 

call 

CRLF 

;Cr  and  Lf 

inc 

SI 

inc 

SI 

; point  to  next  record 

dec 

cx 

decrement  counter 

cmp 

cx, OOh 

;all  done? 

je 

DN 

;yes,  exit 

jmp 

Show 

;no,  get  next  record 

DN: 

ret 

LST 

endp 

;********************************************************* 

;A11  do 
• 

,  so  exit 

from  program 

Exit: 

mov 

ax,4cooh 

;U8e  DOS  function  4c 

• 

int 

2lh 

;to  exit  from  program 

9 

main 

endp 

LAB_1 

ends 

‘Z 

end 

main 

;end  assy 

;*********************************************************** 

DEC2.ASM  tests  the  BCH  decoder  by  generating  all  the 
sydromes  for  the  (15,7)  BCH  two  error  correcting  code  using 
the  generator  polynomial  x8  +  x7  +  x6  +  x*  +  1.  Each 
possible  error  polynomial  along  with  the  generated  syndrome 
is  sent  to  the  printer  for  a  hard  copy  of  the  results. 

The  results  of  this  program  are  to  be  compared  vitht  the 
results  of  DEC1.ASM  (which  generates  the  correct  syndromes 
in  software).  When  the  results  of  DEC2 . ASM  match  the 
results  of  DEC1.ASM,  the  BCH  decoder  is  working  properly. 

*********************************************************** 
Define  constants 
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bell 

equ 

07h 

; ASCI I  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carriage 

return 

If 

equ 

Oah 

;ASCII  char  for  line  feed 

portl 

equ 

OOOOh 

; output  port,  data 

port2 

• 

9 

equ 

OOOlh 

; output  port,  control 

*********************************************************** 


r 

stack_ 

area 

segment  stack  ;define  the  stack  area 

db  40  dup(?)  ;set  aside  room  for 

stack 

stack_ 

• 

i 

area 

ends 

• 

9 

data  area 

segment  ; define  data  area 

GEN 

dw 

Oldlh 

CODE 

dw 

OOOOh 

MWORD 

dv 

OOOOh 

NK 

db 

08h 

K 

db 

07h 

N 

db 

Ofh 

T 

db 

02h 

Base 

dw 

OOOlh 

Drv 

dw 

0002h 

RESULT 

db 

OOh 

MSK 

dw 

OOOOh 

Count 

db 

OOh 

LIST 

db 

300  dup  (•  ') 

Extr 

db 

10  dup  ('  ') 

data_area 

ends 

*********************************************************** 


• 

LAB_1 

segment 

; define  segment  area  for 

main 

; program 

proc 

far 

assume 

cs : LAB_1 

ds : data_area , 

ss :  stack. 

_area 

9 

;set  all 
• 

register  to 

zero  (makes 

it  easier  to  debug) 

9 

sub 

ax,  ax 

;set  ax 

to 

zero 

sub 

bx,bx 

;set  bx 

to 

zero 

sub 

cx,cx 

;set  cx 

to 

zero 

sub 

dx,dx 

;set  dx 

to 

zero 

set  DS  reg  to  point  to  the  current  data  area 


KOV 

mov 


ax, data_area 
ds,ax 


; point  to  data_area 
;DS  now  points  to 


;data_area 

call  Generate 

call  LST 

jmp  Exit 

*********************************************************** 

Generate  is  a  subroutine  that  generates  the  syndroms  for 
all  possible  error  conditions  allowed  by  the  given  code 
structure. 

Note  that  cx  contains  the  length  of  the  encoded  word 

and  dx  contains  the  number  of  correctable  errors 

*********************************************************** 


Generate  proc  near 

« 

f 

;  Generate  single  error  polynomials 


push 

ax 

push 

bx 

push 

cx 

push 

• 

dx 

# 

;  Clear  LIST  to 
« 

all  Zeros 

9 

sub 

bx,bx 

ybx  has  all  zeros 

mov 

SI, off set  LIST 

ySI  points  to  LIST 

mov 

cx, 300d 

;cx  has  number  of 
; records 

Rpt :  mov 

[SI],bx 

; output  zeros 

add 

SI , 02h 

; point  to  next  record 

mov 

[SI] ,bx 

; output  zeros 

add 

SI , 02h 

ypoint  to  next  record 

dec 

CX 

cmp 

cx,00h 

;all  done? 

je 

Sta 

jmp 

Rpt 

;  Compute  single 
• 

errors : 

9 

Sta :  mov 

SI, off set  LIST 

;SI  points  to  LIST 

mov 

bx,0001h 

ybx  used  to  generate 
; error 

ypolynomials 

mov 

cl  ,N 

;cx  has  length  of 
ypolynomial 

Goopl:  mov 

[SI] ,bx 

; store  bx  in  LIST 

call 

DECODE 

; calculate  the  syndrom 
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add 

SI , 02h 

,*SI  points  to  next  pos 

shl 

bx,  1 

; generate  next  error 
;poly 

dec 

cl 

; count  down  number  of 
; errors 

cmp 

cl,01h 

;all  done? 

je 

Gext 

;do  double  errors 

jmp 

Goopl 

;no,  finish  single 
; errors 

;  Compute  double 
• 

errors  If  number 

of  errors  =  2 

f 

Gext: 

mov 

cl  ,T 

; number  of  errors  in  cl 

cmp 

cl, 02h 

; double  errors 
,*  indicated? 

jne 

Gxit 

;no,  skip  double  errors 

mov 

cl ,  N 

;cx  has  length  of 
polynomial 

mov 

dl,N 

;dx  has  length  of 
;polynmoial 

dec 

dl 

;dx  has  N-l 

mov 

Count, dl 

; store  N-l  in  Count 

mov 

bx, Base 

;bx  used  to  generate 

; error 

;plynomials 

mov 

ax,drv 

;ax  has  02h 

Goop2 : 

xor 

bx,ax 

;bx  contains  double 
; error 

mov 

[SI] ,bx 

; store  bx  in  LIST 

call 

DECODE 

; calculate  the  syndrome 

add 

SI,02h 

;SI  points  to  next  pos 

mov 

bx,Base 

reinitialize  bx 

shl 

ax,  1 

phi  ft  ax  left  once 

dec 

dl 

;to  count  shifts 

cmp 

dl,00h 

;all  done  yet 

je 

Chang 

;yes  change  bx  and  ax 

j*P 

Goop2 

;no  continue 

Chang : 

dec 

cl 

; decrease  length  by  one 

cmp 

cl, Olh 

;all  combinations  done 
;yet? 

je 

Gxit 

;all  done,  exit 

mov 

bx,Base 

,*load  bx  with  Base 

shl 

bx,l 

; shift  base  left  once 

mov 

Base,bx 

; store  bx  in  Base 

mov 

ax,Drv 

;ax  has  driver 

shl 

ax,  l 

; shift  ax  left  once 

mov 

Drv,ax 

; store  new  driver  in  Drv 

mov 

dl , Count 

;put  Count  in  dl 
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dec 

dl 

mov 

Count ,dl 

; store  Count-1  in  Count 

jmp 

Goop2 

Gxit:  pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Generate  endp 

;*********************************************************** 

t 

;  DECODE  will  find  the  syndrom 

for  each  error  polynmial 

; using  the  BCH  decoder. 

• 

9 

;  The  error  polynomial  must  be 

in  bx  when  DECODE  is  ; 

called.  SI  points 

to  LIST  (initialized  by  the  calling  ; 

routine) 

• 

9 

;*********************************************************** 

DECODE  proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

mov 

dx, OOOOh 

;to  clear  the  decoder 

mov 

al,00h 

out 

dx,al 

9 

;  Clock  in  n-k  data  bits 

9 

BHigh:  mov 

al,NK 

;al  has  n-k 

mov 

dl,K 

;dl  has  k 

add 

al,dl 

;al  has  n 

mov 

cl, 16d 

;cl  has  16 

sub 

cl,al 

;cl  has  #  of  zeros 

shl 

bx,cl 

; shift  out  zeros 

sub 

cx,cx 

;clear  cx 

mov 

cl  ,HK 

;cx  counts  n-k  bits 

mov 

dx,4000h 

;to  clock  data  into 

; BCH  decoder 

DOOP3 :  mov 

al,bh 

;high  order  bit  in  A7 

out 

dx,al 

; output  high  bit 

shl 

bx,  1 

; shift  bx  left  once 

dec 

cx 

; count  down  n-k 
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cmp 

cx,ooooh 

;all  done? 

je 

DEC 

/yes,  finish  decoding 

jmp 

DOOP3 

/finish  loading  bits 

Next  k  bits  are  the  decoded  word 


* 

# 

DEC :  bov 

cl ,  K 

/to  count  k  bits 

BOV 

RESULT, 0 Oh 

/clear  result 

DOOP4 :  bov 

dx, OcOOOh 

/input  a  bit  into  CPU 

in 

al,dx 

/bit  is  in  AO 

and 

al , Olh 

/mask  for  DO  (AO) 

BOV 

dl , RESULT 

/decoder  word  in  dl 

shl 

dl,l 

/shift  deocded  word 

/left  1 

xor 

dl,al 

/add  bit  to  decoded 

/word 

BOV 

RESULT, dl 

/store  result 

dec 

cl 

/decrease  count 

cmp 

cl , OOh 

/all  done? 

je 

SYND 

/yes ,  get  syndrome 

BOV 

dx, 4000h 

/to  output  a  bit 

BOV 

al,bh 

/high  order  bit  in  A7 

out 

dx,al 

/output  the  bit 

shl 

bx,  1 

/shift  encoded  word 

/left  1 

jmp 

DOOP4 

/finish  decoding 

;  Syndrome  (reBainder)  is  in  the 

n-k  registers  forming 

?the  generator  polynmial 

SYND :  bov 

dx, 8000h 

/output  a  bit,  gate 

/open 

mov 

al,bh 

/to  output  last  bit 

mov 

cl, 08h 

/to  count  NK  bits 

;  One  Bore  time  with  gate  closed. 

mov 

dx, 4000h 

i output ,  gate  open 

out 

dx,al 

/clock  in  last  bit 

BOV 

al, OOh 

/output  zeros  now 

sub 

bx,bx 

/make  sure  bx  clear 

;  Get  syndrome  bits 

and  continue 

to  clock  in  bits  with  the 

/gate  open. 

DOOP:  mov 

dx, OcOOOh 

/to  input  a  bit 

in 

al,dx 

/bit  in  AO 

and 

al,Olh 

/mask  for  low  bit 

xor 

bl,al 

/bx  has  syndrome 

dec 

cl 

/decrease  bit  count 
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cap 

cl, OOh 

;all  done? 

je 

Dstr 

; store  the  syndroBe 

shl 

bx,  1 

; ready  for  next  bit 

BOV 

dX,8000h 

; output  a  bit,  gate 
/open 

BOV 

al, OOh 

;to  output  a  zero 

out 

dx,al 

; output,  gate  closed 

jmp 

DOOP 

; repeat 

Dstr: 

add 

SI , 02h 

;SI  points  to  loc  in 
;LIST 

BOV 

[SI] ,bx 

; store  syndroBe 

;  Restore  registers 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

DECODE 

endp 

•ft******************************************************* 

9 

;  Subroutine 

to  print  the  result 

;  Word 
• 

to  be  printed  Bust  be  in  bx 

9 

********************************************************* 

Prnt 

proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

BOV 

cx, OOlOh 

;cx  counts  16  bits 

Loop2 : 

BOV 

ax,bx 

;put  answer  in  ax 

and 

ax,8000h 

;aask  for  high  order 
;bit 

crop 

ax, OOOOh 

;is  bit  a  zero? 

je 

Zero 

BOV 

dl,31h 

; output  a  1 

BOV 

ah,05h 

int 

21h 

j«P 

Cont 

Zero: 

BOV 

dl, 30h 

; output  a  0 

BOV 

ah,05h 

int 

21h 
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Cont 


Cont: 

dec 

cx 

; decrease  counter 

cap 

cx, OOOOh 

;all  done? 

je 

Go 

;yes,  exit 

shl 

bx,  1 

;get  next  bit  and 

jap 

Loop  2 

; continue 

Go: 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Prnt 

endp 

•  ******************************************************* 

;  CRLF  is  a 

subroutine  to  output  a  carriage  return 

;and  a 
• 

line  feed. 

9 

;******************************************************** 

CRLF 

Proc 

near 

aov 

dl,Odh 

;cr 

aov 

ah,05h 

int 

21h 

aov 

dl , Oah 

•— 1 

aov 

ah, 05h 

int 

21h 

ret 

CRLF 

endp 

*****  **********************************  ****************** 


BLNK  is  a  subroutine  to  output  four  blanks 
********************************************************** 


BLNK 

proc 

near 

aov 

dx,20h 

aov 

ah, 05h 

int 

21h 

ret 

BLNK 

endp 

;four  blanks 


************************************************************ 


LST  is  a  subroutine  to  list  the  contents  of  memory  in 
a  binary  format; 

Note:  will  only  list  the  contents  of  memory  stored  in 
memory  location  LIST 

*********************************************************** 


proc 


near 


mov  SI, offset  LIST  ;SI  points  to  LIST 

Calculate  length  of  list  to  display 


how: 


mov 

al,T 

;ax  has  number  of  errors 

cmp 

al , 02h 

;two  errors? 

je 

Two 

sub 

cx,cx 

; clear  cx 

mov 

cl,N 

;n  single  errors 

jmp 

Show 

sub 

cx,cx 

; clear  cx 

sub 

bx,  bx 

; clear  bx 

mov 

cl  ,N 

; length  of  polynomial 

mov 

bl,N 

; length  of  polynomial 

dec 

bx 

;bx  has  N-l 

add 

cx,bx 

;cx  has  #  of  error  polys 

cmp 

bx, oooh 

;all  done? 

je 

Show 

;yes,  print  the  results 

dec 

bx 

;next  number  to  add 

jmp 

Agn 

'  the 

list 

mov 

bx, [SI] 

polynomial  to  be 
displayed 

call 

Prnt 

print  the  results 

call 

BLNK 

;add  some  blanks 

inc 

SI 

inc 

SI 

point  to  next  record 

mov 

bx, [SI] 

;load  bx  with  next  record 

call 

Prnt 

print  the  next  record 

call 

CRLF 

;Cr  and  Lf 

inc 

SI 

inc 

SI 

point  to  next  record 

dec 

cx 

; decrement  counter 

cmp 

cx,00h 

;all  done? 

je 

DN 

;yes,  exit 

jmp 

Show 

;no,  get  next  record 
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DN:  ret 

LST  endp 

;********************************************************* 


;A11  do, 

• 

so  exit 

from  program 

i 

Exit: 

mov 

ax,4c00h 

;use  DOS  function  4c 

• 

int 

21h 

;to  exit  fro^i  program 

9 

main 

endp 

LABI 

ends 

end 

main 

;end  assy 

‘Z 
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Appendix  H:  Demonstration  Software 


*********************************************************** 

FDEMOENC . ASM 

FDEMOENC . ASM  is  the  software  needed  to  run  the  final 
demonstration  of  the  BCH  encoder/ decoder  system. 

FDEMOEHC . ASM  stands  for  Final  DEMO  ENCoder.ASeMbly 
language,  and  is  meant  to  run  the  encoder  portion  of  the 
encoder/decoder  system. 

FDEMOENC. ASM  will  initialize  the  Z-80  DART  to  9600 
baud,  one  stop  bit,  no  parity,  and  xl6  clock.  The  user 
will  be  prompted  for  any  ASCII  character  which  will  be  sent 
to  the  encoder  for  multiplication  by  the  generator 
polynomial.  The  resulting  code  word  is  displayed  on  the 
screen,  and  the  user  prompted  with  the  message  "Do  you  wish 
to  enter  an  error  polynomial?". 

If  the  user  answers  no,  the  code  word  is  sent  to  the 
decoder  without  modification.  When  the  user  answers  yes, 
FDEMOENC. ASM  will  prompt  the  user  for  the  error  polynomial 
which  is  subsequently  entered  by  the  user  into  the 
computer.  The  error  polynomial  is  exclusive-ored  to  the 
code  word  to  produce  the  transmitted  code  word.  The 
transmitted  code  word  is  finally  sent  to  the  decoder  for 
decoding . 

*********************************************************** 


Define  constants 


• 

bell 

equ 

07h 

;ASCII  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carriage 
; return 

If 

equ 

Oah 

;ASCII  char  for  line  feed 

portl 

equ 

OOOOh 

; output  port ,  data 

port2 

• 

9 

equ 

OOOlh 

?  output  port ,  control 

************************************************************ 

9 

stack_area  segment  stack  ;define  the  stack  area 

db  400  dup(?)  ;set  aside  room  for 

stack 

stack  area  ends 


data_area  segment 


;define  data  area 


1 

—  4 

* 

M 
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msgl 

db 

cr,lf 

db 

'Do  you  wish  to  enter  an  error 

polynomial? ' , '  $ ' 

db 

cr,lf , '$' 

msg2 

db 

cr,lf ,lf 

db 

'Enter  the  code  word: ' ,cr, If , ' $' 

msg3 

db 

'Please  enter  the  error  polynomial ' 

msg4 

db 

'OK', •$' 

msg5 

db 

'  Encoded  word  is :  ' , ' $ ' 

msg6 

db 

•Error  polynomial  is:  ','$• 

msg7 

db 

' Transmitted  word  is :  ' , ' $ ' 

GEN 

dv 

Oldlh 

CODE 

dw 

OOOOh 

HWORD 

dw 

OOOOh 

TWORD 

db 

ooh 

TRCD 

dv 

OOOOh 

ERRP 

dw 

OOOOh 

NK 

db 

08h 

data  area 

ends 

*********************************************************** 


LAB_1  segment  /define  segment  area  for 

program 

main  proc  far 

assume  cs:LAB_l,  ds:data_area, 
ss: stack  area 


set  all  register  to  zero  (makes  it  easier  to  debug) 


begin: 

sub 

ax,  ax 

;set  ax 

to 

zero 

sub 

bx,bx 

;set  bx 

to 

zero 

sub 

cx,cx 

;set  cx 

to 

zero 

sub 

dx,dx 

/set  dx 

to 

zero 

;set  DS 

reg  to  point  to  the  current  data  area 

mov 

ax,data_area 

/point  to  data  area 

mov 

ds,ax 

/DS  now  points  to 

zdata_area 

Call 

I  DART 

Tloop: 

Call 

Get  WORD 

Call 

Code_WORD 

Call 

TErr 

Call 

Send_WORD 

jmp 

Tloop 

;*********************************************************** 


I  DART  is  a  subroutine  to  initialize  the  DART  to  9600 


..J 

M 
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;baud,  one  stop  bit,  no  parity,  and  xl6  clock 

f 

;*********************************************************** 


I_DART  proc  near 

push  ax 

push  bx 

push  cx 

push  dx 


Initialize  the  DART  to  xl6  clock,  1  stop  bit,  8  Tx/Rx 
bits,  no  parity,  and  no  interrupts  (polled  mode). 


• 

9 

AL  contains 

the  control 

byte  to  the  DART 

• 

9 

DX  contains 

the  control 

byte  address 

mov 

dx,port2 

; output  port  address 

mov 

al,18h 

; channel  reset  command 

out 

dx,al 

; issue  command 

out 

dx,al 

/again,  just  to  be  sure 

WRl: 

mov 

al,01h 

/point  to  WRl 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al,00h 

/disable  all  interrupts 

out 

dx,al 

/issue  command 

WR2 : 

mov 

al,02h 

/point  to  WR2 

out 

dx,al 

/load  pointer  into  WRO 

mov 

al, OOh 

/disable  all  interrupts 

out 

dx,al 

/issue  command 

WR3: 

mov 

al,03h 

/point  to  WR3 

out 

dx,al 

/load  pointer  into  WRO 

mov 

al,Oclh 

;Rx  enable,  8  bits, 

•auto  enable  off 

out 

dx,al 

/issue  command 

WR4: 

mov 

al,04h 

/point  to  WR4 

out 

dx,al 

/load  pointer  into  WRO 

mov 

al ,  44h 

/xl6  elk,  no  parity,  1  stop 
/bit 

out 

dx,al 

/issue  command 

WR5: 

mov 

al ,  05h 

/point  to  WR5 

out 

dx,al 

/load  pointer  into  WRO 

mov 

al,6ah 

/Tx  enable,  8  Tx  bits, RTS 
/enable 

out 

dx,al 

/issue  command 

; finished  intializing,  so  restore  registers 


pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 
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I_DART  endp 

************************************************************ 

9 

;  Get_Word  is  a  subroutine  that  gets  the  source  word  as 

;a  user  input  and  stores  that  word  in  WORD. 

• 

9 

‘ *********************************************************** 


Get  WORD 


Get  WORD 


proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

mov 

TWORD, OOh 

;  clear 

word  buffer 

mov 

dx, offset  msg2 

; point 

to  string 

mov 

ah, 09h 

? print 

string  function 

int 

21h 

mov 

ah,01h 

;read  char  and  echo 

int 

21h 

mov 

TWORD, al 

; store 

char  in  WORD 

call 

CRLF 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

endp 


*********************************************************** 

Code_WORD  is  a  subroutine  that  encodes  the  source  word 
and  stores  the  result  in  MWORD 

*********************************************************** 


Code_WORD  proc  near 

push  ax 

push  bx 

push  cx 

push  dx 

9 

;  Disable  the  DART  receiver  and  transmitter,  so  that 
;  the  BCH  encoder  can  be  used  without  affecting  ; 
transmissions . 
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BOV 

dx,port2 

; control  port 

BOV 

al,03h 

; point  to  WR3 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al , OOh 

;Rx  disabled,  8  bits, 

out 

dx,al 

;auto  enable  off 

BOV 

al,05h 

; point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al,00h 

;Tx  disabled,  8  Tx  bits, 

out 

dx,al 

;RTS  disabled 

• 

9 

;  Generate  the 

• 

encoded  word  using  the  BCH  encoder 

9 

BOV 

MWORD, OOOOh 

; clear  word  buffer 

sub 

bx,bx 

; clear  bx 

BOV 

bl,TWORD 

,*bx  has  code  word 

BOV 

cl  ,NK 

;cl  loaded  with  n-k 

inc 

cl 

;one  more  shift  req 

shl 

bx,cl 

;add  zero  padding 

BOV 

CODE , bx 

; store  padded  code 

BOV 

dx, 8000h 

;to  clear  the  encoder 

BOV 

al,00h 

out 

dx,al 

BOV 

ex, OOOfh 

,*cx  counts  15  bits 

CLOOP:  BOV 

bx , CODE 

;bx  has  code  char 

BOV 

dx, 4000h 

;to  clock  data  into 
;BCH  encoder 

BOV 

al,bh 

•bov  bh  into  al 

out 

dx,al 

; output  high  bit 

shl 

bx,  1 

, shift  bx  left  1  bit 

BOV 

CODE , bx 

; store  code  word 

;  Get  the  encoded  word 

BOV 

dx,0c000h 

;to  input  a  bit 

sub 

bx,bx 

; clear  bx 

in 

al,dx 

;al  has  low  order  bit 

and 

al, Olh 

; strip  off  low  bit 

BOV 

bl,al 

;bl  has  low  order  bit 

BOV 

ax , MWORD 

;al  has  encoded  word 

or 

ax,bx 

; append  new  bit 

BOV 

MWORD, ax 

,*stgre  code  word 

cap 

cx,0001h 

rail  done? 

je 

Cxit 

;yes,  Print  result 

shl 

ax,  1 

;shift  al  left  1  bit 

BOV 

MWORD, ax 

; store  code  word  in 
; MWORD 

ESS  .2-  4 % 


dec 

cx 

;cx  holds  count 

• 

jmp 

CLOOP 

; finish  getting  result 

Cxit: 

BOV 

dx, offset 

asg5 

; encoded  word  asg 

BOV 

ah, 09h 

int 

21h 

BOV 

bx , MWORD 

.’encoded  word  in  bx 

call 

Prnt 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Code_WORD  endp 

;********************************************************** 

9 

}  Subroutine 

to  print  the  result 

;  Word 
• 

to  be  printed  must  be 

in  bx 

9 

;********************************************************** 

Prnt 

proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

BOV 

cx,0010h 

;cx  counts  16  bits 

Loop2: 

BOV 

ax,bx 

;put  answer  in  ax 

and 

ax, 8000h 

;aask  for  high  order 

;bit 

CBp 

ax, OOOOh 

;is  bit  a  zero? 

je 

Zero 

BOV 

dl,31h 

; output  a  "1" 

BOV 

ah,02h 

int 

21h 

jap 

Cont 

Zero: 

BOV 

dl,30h 

; output  a  "0" 

BOV 

ah, 02h 

int 

21h 

Cont: 

dec 

cx 

; decrease  counter 

cap 

cx, OOOOh 

;all  done? 

je 

Go 

;yes,  exit 

shl 

bx,  1 

;get  next  bit  and 

jap 

Loop  2 

/continue 
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Go:  call 

CRLF 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Prnt  endp 

;***************************************************** 

9 

;  CRLF  is  a 

• 

subroutine 

to  print  a  CR  and  LF 

9 

;***************************************************** 

CRLF  proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

BOV 

ah, 02h 

,* print  character 

BOV 

dl.Odh 

;CR 

int 

21h 

BOV 

dl.Oah 

;  lf 

BOV 

ah, 02h 

int 

21h 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

CRLF 


endp 


;******** 

.•subroutine  to  check 


proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

BOV 

dx, offset  Bsg4 

BOV 

ah, 09h 

int 

21h 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 
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ret 

CX  endp 


*********************************************************** 

TErr  is  a  subroutine  that  gets  the  error  polynomial  from 
the  user  and  exclusive-ors  it  to  the  code  word.  The  code 
word  is  stored  in  MWORD 

*********************************************************** 


TErr  proc  near 


push 

ax 

push 

bx 

push 

CX 

push 

dx 

;  Prompt  for 

-  user  intent 

mov 

dx, offset  msgl 

;does  user  want  an  error 

;poly? 

mov 

ah, 09h 

; print  string  call 

int 

21h 

mov 

ah, Olh 

;get  character  and  echo 

int 

2lh 

cmp 

al,79h 

;y  typed? 

je 

Rever 

;yes,  get  error  poly 

cmp 

al, 59h 

; Y  typed? 

je 

Rever 

;yes,  get  error  poly 

mov 

ax, MWORD 

; encoded  word  is  TRCD 

mov 

TRCD, ax 

jmp 

Edone 

;no  exit 

Rever:  call 

CRLF 

mov 

dx, offset  msg3 

; "Enter  error  poly" 

mov 

ah , 09h 

jprint  string  call 

int 

21h 

call 

CRLF 

;  Get  error 

poly  and  process 

sub 

bx,bx 

; cl ear  bx 

JC:  mov 

ah, Olh 

;read  keyboard  and  echo 

int 

21h 

cmp 

al,30h 

;is  it  a  zero? 

je 

JZero 

cmp 

al,31h 

;is  it  a  one? 

je 

One 
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cmp 

al,Odh 

;is  it  a  CR 

je 

JXor 

jmp 

JC 

JZero:  shl 

bx,  1 

;put  0  in  bx 

jmp 

JC 

One :  mov 

ax, oooi 

;to  add  one  to  bx 

shl 

bx,  l 

/position  poly 

or 

bx,ax 

;add  one  to  bx 

jmp 

JC 

JXor :  mov 

ERRP , bx 

/store  error  in  bx 

mov 

dx, MWORD 

/code  poly  in  dx 

xor 

dx,bx 

/xor  error  poJv 

mov 

TRCD,dx 

/store  trans  poly 

mov 

bx,dx 

ztrans  poly  in  bx 

call 

CRLF 

call 

Prnt 

Edone:  call 

CRLF 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

TErr  endp 


;*********************************************************** 

9 

;  Send_WORD  will  send  the  final  code  word  to  the  decoder 

;  Note  that  Send_WORD  waits  for  a  request  prior  to  sending 

;  the  code  word. 

• 

9 

•  it****************************  ****************************** 

Send_WORD  proc  near 
push  ax 
push  bx 
push  cx 
push  dx 

;  Display  encoded  word,  error  polynomial,  and  transmitted 
;  word  on  the  screen 

mov  dx, offset  msg5 
mov  ah,09h 
int  2ih 

mov  bx , MWORD 

call  Prnt 

mov  dx, offset  msg6 
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mov 

ah,09h 

int 

21h 

mov 

bx,ERRP 

call 

Pmt 

mov 

dx, offset  msg7 

mov 

ah,09h 

int 

21h 

mov 

bx , TRCD 

call 

Pmt 

;  Enable  DART  transmissions 

mov 

dx/port2 

; control  port 

mov 

al, 03h 

; point  to  WR3 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al, Oclh 

;Rx  enabled,  8  bits 

out 

dx,al 

; autoenable  off 

mov 

al,05h 

; point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al , 6ah 

;Tx  enabled,  8  tx  bits 

out 

dx,al 

;RTS  enabled 

;  Get  a  request 

to  send  from  the 

decoder 

Soopl:  mov 

dx,01h 

; control  port 

in 

al,dx 

;rec  buffer  full? 

and 

al, Olh 

;mask  for  1st  bit 

cmp 

al,00h 

;rec  buffer  full? 

jz 

Soopl 

;no,  wait  for  word 

mov 

dx, OOh 

;data  port  of  DART 

in 

al,dx 

;word  in  al 

cmp 

al, 52h 

; capital  R  sent? 

je 

Sextl 

;go  send  code  word 

jmp 

Soopl 

;no,  wait  for  R 

;  Send  the  code 

word 

Sextl:  mov 

bx, TRCD 

;code  word  in  bx 

mov 

ah,04h 

;Aux  output  call 

mov 

dl,bh 

;high  byte  first 

int 

21h 

mov 

dl,bl 

;low  byte  next 

int 

21h 

;  Clear  buffers 


mov  MWORD, ooooh 
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mov 

BOV 


ERRP, OOOOh 
TRCD, OOOOh 


pop  dx 
pop  cx 
pop  bx 
pop  ax 
ret 

Send_WORD  endp 

$ 

*  *************** ******  ************************************** 


;A11  do,  so  exit  from  program 


• 

9 

Exit: 

mov 

ax,4c00h 

;use  DOS  function  4c 

• 

int 

21h 

;to  exit  from  program 

9 

main 

endp 

LAB_1 

ends 

end 

main 

;end  assy 

"Z 

*********************************************************** 

FDEMODEC . ASM  is  the  software  for  the  final  demonstration 
of  the  decoder. 

FDEMODEC. ASM  begins  by  building  a  table  for  all  the 
sydromes  for  the  (15,7)  BCH  two  error  correcting  code  using 
the  generator  polynomial  xa  +  x7  +  x6  +  x*  +  1.  Then 
it  initializes  the  Z-80  DART  to  9600  baud,  xl6,  one  stop 
bit  and  no  parity. 

FDEMODEC. ASM  will  accept  a  16  bit  binay  bit  stream  as 
the  received  encoded  word.  An  ASCII  "R1'  (symbolizing  ready 
to  receive)  is  outputted  through  the  auxilliary  port  to  the 
transmitter.  After  the  transmitter  has  received  the  "R", 
the  transmitter  sends  the  transmitted  word  via  its 
auxilliary  port  to  the  decoders  Z-80  DART.  The  received 
encoded  word  is  sent  to  the  decoder  for  decoding. 

If  the  transmitted  word  had  no  errors,  the  transmitted 
word  and  the  final  result  (ASCII  character)  are  displayed 
on  the  screen  for  the  user.  If  the  transmitted  word  has 
one  or  two  errors,  the  transmitted  word,  syndrome 
polynomial,  corrected  transmitted  word,  and  final  result 
are  displayed  on  the  screen  for  the  user.  In  the  advent 
that  three  or  more  errors  are  transmitted  in  the  encoded 
word  and  the  decoder  is  unable  to  resolve  the  error,  it 
will  display  an  uncorrectable  error  message. 


*********************************************************** 


w 

;  Define 
• 

constants 

bell 

equ 

07h 

;ASCII  char  for  bell 

cr 

equ 

Odh 

;ASCII  char  for  carriage 
; return 

If 

equ 

Oah 

; ASCII  char  for  line  feed 

portl 

equ 

OOOOh 

; output  port,  data 

port2 

• 

9 

equ 

OOOlh 

; output  port,  control 

*********************************************************** 


• 

9 

stack_ 

area 

segment 

stack 

; define  the  stack  area 

db 

80  dup ( ? ) 

;set  aside  room  for 

stack 

stack_ 

• 

9 

area 

ends 

• 

9 

data  area 

segment 

; define  data  area 

msg9 

db 

'Uncorrect able  error  transmitted ','$ ' 

msgl 

db 

'Transmitted  word 

is: • , •$' 

msg2 

db 

'Syndrome  is: 

msg3 

db 

'Error  polynomial 

is: ', •$• 

msg4 

db 

•Correct  code  word 

:  # , *  $' 

msg5 

db 

'Final 

Result  is: 

\  '$’ 

GEN 

dw 

Oldlh 

CODE 

dw 

OOOOh 

MWORD 

dv 

OOOOh 

NK 

db 

08h 

K 

db 

07h 

N 

db 

ofh 

T 

db 

02h 

Base 

dw 

OOOlh 

Drv 

dv 

0002h 

RESULT 

db 

OOh 

MSK 

dv 

OOOOh 

MSYND 

dv 

OOOOh 

TRCD 

dv 

OOOOh 

Count 

db 

OOh 

LIST 

db 

300  dup  ( ' 

') 

Extr 

db 

10  dup  ( ' 

’) 

data  area 

ends 

*********************************************************** 


LAB_1  segment  ; define  segment  area  for 

program 

main  proc  far 

assume  cs : LAB_1 ,  ds : data_area , 
ss: stack  area 


;set  all  register  to  zero  (makes  it  easier  to  debug) 


sub 

ax,  ax 

;set 

ax 

to 

zero 

sub 

bx,bx 

;set 

bx 

to 

zero 

sub 

cx,cx 

;set 

cx 

to 

zero 

sub 

dx,dx 

;set 

dx 

to 

zero 

set  DS  reg  to  point  to  the  current  data  area 


mov 

ax,data_area 

mov 

ds,ax 

call 

I_DART 

call 

Generate 

• 

9 

call 

LST 

MyLp: 

call 

Get_W0RD 

call 

Dec  Code 

jmp 

MyLp 

; point  to  data_area 
;DS  now  points  to 
;data  area 


*********************************************************** 

I_DART  is  a  subroutine  to  initialize  the  DART  to  9600 
baud,  one  stop  bit,  no  parity,  and  xl6  clock 

*********************************************************** 


IDART 

proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

• 

9 

;  Initialize  the 

DART  to  X16 

clock,  1  stop  bit,  8  Tx/Rx 

bits, 

• 

no  parity,  and  no  interrupts  (polled  mode) . 

9 

• 

9 

AL  contains 

the  control 

byte  to  the  DART 

m 

9 

DX  contains 

the  control 

byte  address 

mov 

dx,port2 

; output  port  address 

mov 

al, 18h 

; channel  reset  command 

out 

dx,  al 

; issue  command 

out 

dx,  al 

; again,  just  to  be  sure 

WR1: 

mov 

al,01h 

; point  to  WR1 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al ,  OOh 

;disable  all  interrupts 

out 

dx,al 

; issue  command 

WR2 : 

mov 

al,02h 

;point  to  WR2 

out 

dx,al 

;load  pointer  into  WRO 

WR2 


WR3 


BOV 

al, OOh 

; disable  all  interrupts 

out 

dx ,  al 

; issue  coBBand 

WR3: 

BOV 

al , 03h 

; point  to  WR3 

out 

dx,al 

;load  pointer  into  WRO 

BOV 

al, Oclh 

;Rx  enable,  8  bits, 

/auto  enable  off 

out 

dx,al 

; issue  coBBand 

WR4: 

BOV 

al,04h 

; point  to  WR4 

out 

dx,al 

/load  pointer  into  WRO 

BOV 

al ,  44h 

;xl6  elk,  no  parity,  l  stop 
;bit 

out 

dx,al 

/issue  command 

WR5 : 

BOV 

al, 05h 

/point  to  WR5 

out 

dx,al 

/load  pointer  into  WRO 

BOV 

al, 6ah 

/Tx  enable,  8  Tx  bits, RTS 
/enable 

out 

dx,al 

/issue  command 

; finished  intializing,  so 

pop  dx 

pop  cx 

pop  bx 

pop  ax 

ret 

I_DART  endp 

restore  registers 

*********************************************************** 


Get_WORD  will  get  the  final  code  word  for  the  decoder 
*********************************************************** 


Get_WORD 

proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

/  Output 

a  ready  to  receive 

(ASCII  "R") 

Glp: 

BOV 

dl, 52h 

/ASCII  "R" 

BOV 

ah, 04h 

/AUX  output  call 

int 

21h 

y  Enable 

DART  transmissions 

BOV 

dx , port 2 

/control  port 

BOV 

al,03h 

/point  to  WR3 

out 

dx,al 

/load  pointer  into  WRO 

BOV 

al, Oclh 

;Rx  enabled,  8  bits 

out 

dx,al 

/autoenable  off 
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3 


BOV 

al, 05h 

; point  to  WR5 

out 

dx,al 

;load  pointer  into  WHO 

BOV 

al ,  6ah 

;Tx  enabled,  8  tx  bits 

out 

dx,  al 

;RTS  enabled 

• 

Check  input  buffer: 

BOV 

dx,01h 

; control  port 

in 

al,dx 

;rec  buffer  full? 

and 

al,01h 

;mask  for  1st  bit 

cap 

al, OOh 

;rec  buffer  full? 

jz 

Glp 

;no,  send  ready  again 

• 

f 

Get  high  byte 

mov 

dx, OOh 

;data  port  of  DART 

in 

al,dx 

;word  in  al 

mov 

bh,al 

;high  bits  in  bh 

• 

Wait  for  low  byte 

GGlp:  mov 

dx, Olh 

; control  port 

in 

al,dx 

;rec  buffer  full? 

and 

al,01h 

;mask  for  1st  bit 

cmp 

al,00h 

;rec  buffer  full? 

jz 

GGlp 

;wait  for  word 

• 

9 

Get  low  byte 

mov 

dx, OOh 

;data  port  of  DART 

in 

al,dx 

;word  in  al 

mov 

bl,al 

;low  bits  in  bl 

mov 

TRCD , bx 

; store  transmitted  word 

• 

r 

Disable  DART 

transmissions: 

mov 

dx,port2 

; control  port 

BOV 

al,03h 

; point  to  WR3 

out 

dx,  al 

;load  pointer  into  WRO 

BOV 

al,00h 

;Rx  disabled 

out 

dx,al 

;  Issue  command 

mov 

al,05h 

; point  to  WR5 

out 

dx,al 

;load  pointer  into  WRO 

mov 

al,00h 

;Tx  disabled 

out 

dx,al 

Tissue  command 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

4 


J 


155 


ret 

Get_WORD  endp 


;*********************************************************** 

ff 

;  Generate  is  a  subroutine  that  generates  the  syndroms  for 
;all  possible  error  conditions  allowed  by  the  given  code 
; structure . 

9 

;  Note  that  cx  contains  the  length  of  the  encoded  word 

;  and  dx  contains  the  number  of  correctable  errors 

• 

9 

;*********************************************************** 

9 

Generate  proc  near 

9 

;  Generate  single  error  polynomials 


push 

ax 

push 

bx 

push 

cx 

push 

dx 

Clear  LIST  to 

all  Zeros 

sub 

bx,bx 

;bx  has  all  zeros 

mov 

SI, offset  LIST 

;SI  points  to  LIST 

mov 

cx,300d 

;cx  has  number  of 
; records 

:  mov 

[SI] ,bx 

; output  zeros 

add 

SI,02h 

; point  to  next  record 

mov 

[SI] ,bx 

; output  zeros 

add 

SI, 02h 

point  to  next  record 

dec 

cx 

cmp 

cx, OOh 

;all  done? 

je 

Sta 

jmp 

Rpt 

;  Compute  single  errors: 


Sta: 

mov 

SI, off set  LIST 

;SI  points  to  LIST 

mov 

bx, OOOlh 

;bx  used  to  generate 
; error 

polynomials 

mov 

cl,N 

;cx  has  length  of 
polynomial 

Goopl: 

mov 

[SI] ,bx 

;  store  bx  in  LIST 

call 

DECODE 

; calculate  the  syndrom 

add 

mov 

SI , 02h 
ax,MSYND 

;SI  points  to  next  pos 
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mov 

[SI], ax 

; store  syndrome 

add 

SI , 02h 

;point  to  next  position 

shl 

bx,  1 

; generate  next  error 
;poly 

dec 

cl 

; count  down  number  of 
; errors 

cmp 

cl, Olh 

;all  done? 

je 

Gext 

;do  double  errors 

jmp 

Goopl 

;no,  finish  single 
; errors 

;  Compute  double 
• 

errors  if  number 

of  errors  =  2 

r 

Gext: 

mov 

cl  ,T 

; number  of  errors  in  cl 

cmp 

cl,02h 

; double  errors 
; indicated? 

jne 

Gxit 

;no,  skip  double  errors 

mov 

Cl ,  N 

;cx  has  length  of 
i polynomial 

mov 

dl,N 

;dx  has  length  of 
;polynmoial 

dec 

dl 

;dx  has  N-l 

mov 

Count , dl 

i store  N-l  in  Count 

mov 

bx,Base 

;bx  used  to  generate 
,*  error 
;plynomials 

mov 

ax,drv 

;ax  has  02h 

Goop2 : 

xor 

bx,ax 

;bx  contains  double 
; error 

mov 

[SI] ,bx 

; store  bx  in  LIST 

call 

DECODE 

; calculate  the  syndrome 

add 

mov 

SI , 02h 
bx,MSYND 

?SI  points  to  next  pos 

mov 

[SI],bx 

; store  syndrome  in  LIST 

add 

SI , 02h 

;inc  SI 

mov 

bx,Base 

; reinitialize  bx 

shl 

ax,  l 

? shift  ax  left  once 

dec 

dl 

;to  count  shifts 

cmp 

dl,00h 

;all  done  yet 

je 

Chang 

;yes  change  bx  and  ax 

jmp 

Goop2 

?no  continue 

Chang : 

dec 

cl 

; decrease  length  by  one 

cmp 

cl, Olh 

;all  combinations  done 
?yet? 

je 

Gxit 

fall  done,  exit 

mov 

bx,Base 

;load  bx  with  Base 

shl 

bx,l 

; shift  base  left  once 

mov 

Base,bx 

; store  bx  in  Base 

mov 

ax,Drv 

;ax  has  driver 
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shl 

ax,  1 

; shift  ax  left  once 

mov 

Drv, ax 

7 store  new  driver  in  Drv 

mov 

dl , Count 

;put  Count  in  dl 

dec 

dl 

mov 

Count , dl 

;store  Count-1  in  Count 

jmp 

Goop2 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Generate  endp 

;*********************************************************** 

9 

;  DECODE  will  find  the  syndrom  for  each  error  polynmial 
; using  the  BCH  decoder. 

• 

9 

;  The  error  polynomial  must  be  in  bx  when  DECODE  is 
7 called.  SI  points  to  LIST  (initialized  by  the  calling 
; routine) 

• 

9 

;*********************************************************** 


DECODE 

proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

mov 

dx, OOOOh 

?to  clear  the  decoder 

mov 

al , ooh 

out 

dx,al 

9 

7  Clock  in  n-k 

• 

data  bits 

BHigh: 

mov 

al  ,NK 

;al  has  n-k 

mov 

dl,K 

;dl  has  k 

add 

al,dl 

;al  has  n 

mov 

cl, 16d 

rcl  has  16 

sub 

cl,al 

;cl  has  #  of  zeros 

shl 

bx,cl 

;shift  out  zeros 

sub 

cx,cx 

; clear  cx 

mov 

cl  ,NK 

;cx  counts  n-k  bits 

mov 

dx, 4000h 

; to  clock  data  into 
; BCH  decoder 

D00P3 : 

mov 

al,bh 

7high  order  bit  in  A7 
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out 

dx,al 

7 output  high  bit 

shl 

bx,  1 

7 shift  bx  left  once 

dec 

cx 

7 count  down  n-k 

cmp 

cx, OOOOh 

7 all  done? 

je 

DEC 

7yes,  finish  decoding 

jmp 

DOOP3 

7 finish  loading  bits 

• 

7  Next 

• 

t 

k  bits 

are  the  decoded  word 

DEC: 

mov 

cl,K 

7 to  count  k  bits 

mov 

RESULT, 0 Oh 

7 clear  result 

DOOP4 : 

mov 

dx, OcOOOh 

7  input  a  bit  into  CPU 

in 

al,dx 

? bit  is  in  AO 

and 

al,01h 

7mask  for  DO  (AO) 

mov 

dl , RESULT 

7 decoder  word  in  dl 

shl 

dl,  1 

7  shift  deocded  word 

7  left  1 

xor 

dl,al 

7 add  bit  to  decoded 

7  word 

mov 

RESULT ,dl 

7 store  result 

dec 

cl 

7 decrease  count 

cmp 

cl,00h 

7 all  done? 

je 

SYND 

7 yes,  get  syndrome 

mov 

dx,4000h 

7 to  output  a  bit 

mov 

al,bh 

7 high  order  bit  in  A7 

out 

dx,al 

7 output  the  bit 

7 shift  encoded  word 

7  left  1 

shl 

bx,  1 

jmp 

DOOP4 

7  finish  decoding 

7  Syndrome  (remainder)  is  in  the  n-k  registers  forming 
;  the  generator  polynmial 


SYND: 

mov 

dx, 8000h 

7 output  a  bit,  gate 
7  open 

mov 

al,bh 

7 to  output  last  bit 

mov 

cl,08h 

7 to  count  NK  bits 

7  One 

more  time 

with  gate  closed. 

mov 

dx,4000h 

7 output,  gate  open 

out 

dx,al 

7 clock  in  last  bit 

mov 

al,00h 

7 output  zeros  now 

sub 

bx,bx 

,*make  sure  bx  clear 

7  Get  syndrome 

7 gate  open. 

bits  and  continue  to 

clock  in  bits  with 

DOOP: 

mov 

dx, OcOOOh 

7 to  input  a  bit 
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in 

al,dx 

;bit  in  AO 

and 

al, Olh 

;Bask  for  lov  bit 

xor 

bl,al 

;bx  has  syndroBe 

dec 

cl 

; decrease  bit  count 

cmp 

cl,00h 

;all  done? 

je 

Dstr 

; store  the  syndroBe 

shl 

bx,  1 

; ready  for  next  bit 

BOV 

dx,8000h 

; output  a  bit,  gate 

;  open 

BOV 

al, OOh 

;to  output  a  zero 

out 

dx,al 

; output,  gate  closed 

jBp 

DOOP 

; repeat 

Dstr:  bov 

MSYND, bx 

; store  syndrome  in  SYND 

;  Restore  registers 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

DECODE  endp 

;*********************************************************** 

9 

;  Subroutine 

to  print  the  result 

;  Word  to  be  printed  must  be  in  bx 
• 

9 

;*********************************************************** 

Prnt  proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

BOV 

cx,0010h 

;cx  counts  16  bits 

Loop2 :  bov 

ax,bx 

;put  answer  in  ax 

and 

ax, 8000h 

;mask  for  high  order 

,*bit 

cmp 

ax, OOOOh 

;is  bit  a  zero? 

je 

Zero 

BOV 

dl,31h 

; output  a  1 

BOV 

ah,02h 

int 

21h 

jmp 

Cont 

Zero 


mov 


dl , 3 Oh 


output  a  0 


mov 

ah, 02h 

int 

21h 

Cont: 

dec 

cx 

; decrease  counter 

cmp 

cx, ooooh 

/all  done? 

je 

MGO 

;yes,  exit 

shl 

bx,l 

;get  next  bit  and 

jmp 

Loop  2 

/continue 

MGo: 

call 

CRLF 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ax 

ret 

Prnt 

endp 

******************************************************* 

CRLF  is  a  subroutine  to  output  a  carriage  return 
and  a  line  feed. 

******************************************************** 


CRLF 


CRLF 


Proc 

near 

mov 

dl,Odh 

mov 

ah,02h 

int 

21h 

mov 

dl , Oah 

mov 

ah, 02h 

int 

21h 

ret 

endp 

?cr 


/If 


********************************************************* 

BLNK  is  a  subroutine  to  output  four  blanks 
********************************************************* 


BLNK 


proc 

near 

JUO  V 

dx,20h 

/four  blanks 

mov 

ah,02h 

int 

21h 

BLNK 


ret 

endp 
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*********************************************************** 


LST  is  a  subroutine  to  list  the  contents  of  memory  in 
a  binary  format; 

Mote:  will  only  list  the  contents  of  memory  stored  in 
memory  location  LIST 

*********************************************************** 


•ST  proc  near 

mov  SI, offset  LIST  ;SI  points  to  LIST 

Calculate  length  of  list  to  display 


mov 

al,T 

cmp 

al,02h 

je 

Two 

sub 

cx,cx 

mov 

cl,N 

jmp 

Show 

sub 

cx,cx 

sub 

bx,bx 

mov 

cl  ,N 

mov 

bl,N 

dec 

bx 

S3H 

add 

cx,bx 

cmp 

bx,000h 

je 

Show 

dec 

bx 

jmp 

Agn 

Display  the 

list 

how: 

mov 

bx, [SI] 

call 

Prnt 

call 

BLNK 

inc 

SI 

inc 

SI 

mov 

bx, [SI] 

call 

Prnt 

call 

CRLF 

inc 

SI 

inc 

SI 

dec 

CX 

cmp 

cx,00h 

je 

DN 

;ax  has  number  of  errors 
;two  errors? 

•‘clear  cx 
;n  single  errors 

; clear  cx 
; clear  bx 

; length  of  polynomial 
; length  of  polynomial 
;bx  has  N-l 

;cx  has  #  of  error  polys 
;all  done? 

;yes,  print  the  results 
;next  number  to  add 


; polynomial  to  be 
;  displayed 
; print  the  results 
•add  some  blanks 

; point  to  next  record 
;load  bx  with  next  record 

; print  the  next  record 
;Cr  and  Lf 

; point  to  next  record 
;decrement  counter 
;all  done? 

;yes,  exit 


-T^i  ' '  -  — 


jmp  Show  ;no,  get  next  record 

DN:  ret 

LST  endp 

•ft******************************************************** 

f 

;  Dec_Code  is  a  subroutine  that  decodes  the  received 
transmitted  code  word.  Mote  that  the  transmitted 

;code  word  is  in  TRCD 

• 

t 

•A******************************************************** 


DecCode  proc 

near 

push 

ax 

push 

bx 

push 

cx 

push 

dx 

mov 

bx,TRCD 

transmitted  word  in 

mov 

dx, offset 

msgl 

mov 

ah, 09h 

int 

21h 

call 

Prnt 

call 

DECODE 

mov 

bx,MSYND 

;but  syndrome  in  bx 

cmp 

bx, OOOOh 

; syndrome  «  0? 

je 

DCR 

;go  print  result 

mov 

dx, offset 

msg2 

mov 

ah,09h 

int 

2lh 

call 

Prnt 

; print  syndrome 

Now  search  list  for  correct  error  polynomial 


i 

i 


Clop: 


SynM: 


mov 

SI, off set  LIST 

; point  to  LIST 

add 

SI , 02h 

; point  to  syndrome 

mov 

dl,8ch 

; search  list 

mov 

ax, [SI] 

mov 

bx,MSYND 

cmp 

bx,  ax 

; syndromes  match? 

je 

SynM 

add 

SI , 04h 

;get  next  record 

dec 

dl 

cmp 

dl , OOh 

;all  done 

je 

Ermsg 

jmp 

Clop 

mov 

ax, SI 

sub 

ax,0002h 

mov 

SI,  ax 

; point  to  error  poly 

mov 

bX, [SI] 

toad  error  poly 
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Ermsg: 


DCR: 


NL: 


Dec  Code 


BOV 

dx, offset 

Bsg3 

BOV 

ah, 09h 

int 

21h 

call 

Prnt 

BOV 

dx,TRCD 

transmitted  word  in  TRCD 

xor 

bx,dx 

; correct  trans  word  in  bx 

BOV 

dx, offset  Bsg4 

BOV 

ah,09h 

int 

21h 

call 

Prnt 

call 

DECODE 

BOV 

bx,MSYND 

; syndrome  in  bx 

cmp 

bx, OOOOh 

; syndrome  =  0? 

je 

DCR 

;yes,  print  result 

BOV 

dx, offset  Bsg9  ; error  Bsg 

BOV 

ah , 09h 

; print  string 

int 

21h 

call 

CRLF 

jmp 

NL 

BOV 

dx, offset 

msg5  ; Final  Reuslt  msg 

BOV 

ah,09h 

int 

21h 

BOV 

dl, RESULT 

BOV 

ah,02h 

; display  char  function 

int 

21h 

call 

CRLF 

BOV 

dl,02h 

int 

21h 

call 

CRLF 

pop 

dx 

pop 

cx 

pop 

bx 

pop 

ret 

endp 

ax 

;*********************************************************** 


;A11  do, 

• 

so  exit 

from  program 

9 

Exit: 

BOV 

ax, 4c00h 

;use  DOS  function  4c 

• 

int 

21h 

;to  exit  from  program 

9 

Bain 

endp 

LAB_1 

ends 

end 

main 

;end  assy 

*z 
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